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PRODUCT CODE: AC -T883A -MC 
PRODUCT TITLE: CZIEBAO IEC11-A PDOP-11 DIAGNOSTIC 
PRODUCT DATE: JANUARY 1964 


DEPARTMENT: CSS, MUNICH 
AUTHOR ; BERT HUBER 


COPYRIGHT (C) FIRST,1976,1964 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 


SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 


OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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SEQ 2 


D1 


SSHSHHSASSHSSEHSHESSSSSESESSESHSESHEHHSHEEHEOESES 


« DIAGNOSTIC PROGRAM DESCRIPTION . 


COOOOHEEECEEEEEREEEREEEEESESEEOEEOEEEESES 
10 ABSTRACT 


THIS PROGRAM IS DESIGNED TO TEST AND — THE 
TEC-11A IEC-BUS CONTROLLER FOR THE PDP/11 


2.0 REQUIREMENTS 


A. POP 11/xXx SYSTEM 
CONSOLE TERMINAL WITH STANDARD UNIBUS ADDRESSES. 
8. A MINIMUM OF SK MEMORY 
c. ALL STANDARD PROCESSOR TESTS MUST BE RUN SUCCESSFULLY 


3.0 LOADING PROCEDURE 


Se ed ee ee 


BOOT XXDP MEDIA, THEN RUN DIAGNOSTIC WITH FOLLOWING 
COMMAND : 


R ZIEB?? 

NOTE: ?? REFERS TO VERSION AND REV LEVEL. 
4.0 STARTING PROCEDURE 

SHSSHHHSHSSHSHSHSSHCSCO SSH OOS HOSS H SO SHEE 

PROGRAM IS STARTED AT LOC 1000 (OCTAL) 


IF NOT OTHERWISE SPECIFIED THE ABOVE NOTED ADDRESS IS 
ALSO THE PROGRAM RESTART ADDRESS. 


5.0 OPERATING PROCEDURE 


5 ee ee 


THE FOLLOWING INITIAL DIALOGUE IS PERFORMED AFTER 
THE PROGRAM IS STARTED : 


COM v3.2 ---CSS DIAGNOSTIC MONITOR. - - 
HIGHEST MEMORY ADDRESS ;: XXXxxx 
IEC-11A --- IEC-BUS CONTROLLER BASIC TESTS 
AC - T883A -MC 


SEQ 3 


+ @+ ©: © @s Ge Ge Ge Ge GF GF Ge os GF Ge OF Gs Ge Ge Ge GF Gt GH Ge GH Gt Ge Gt GF Ge Ge GF GF Ge Ge GH OF GF 


ee @+ Ge Ge Ge Gt Ge Ge Ge GF Ge Ge os oF 


El 


ENTER FIRST REGISTER ADDRESS OF IEC11-ACDEFAUT IS 160010) 
ENTER AND TERMINATE By TYPING A <CR> 


ENTER VECTOR ADDRESS OF IECi1-ACDEFAULT IS 270) 
ENTER AND TERMINATE BY TYPING A <CR> 


ENTER IEC BUS ADDRESS OF BECRE AC OST ALF Is 35) 
ENTER AND TERMINATE BY TYPING A <CR 


SET LON a ON IEC11-A TO POS.1 CACTIVE) 
TYPE <CR> WHEN READY 


SET LON eh ON IEC11-A TO POS.2 CINACTIVE) 
TYPE <CR> WHEN READY 


DO YOU WANT A PRINTOUT OF START,END MESSAGES?(Y OR N) 


DEPENDING ON Y OR N, THE PROGRAM PRINTS OUT THE START 
AND END OF EACH TEST OR NOT. 


NEXT TEST TO RUN? 


TYPE <CR> TO GO STEP BY STEP THROUGH ALL IEC TESTS (1 - 14). 


OTHERWISE SPECIFY TEST NUMBER (DECIMAL). 

TO SELECT A SINGLE TEST WHILE TEST PROGRAM IS ACTIVE, 
TYPE (CNTRL C) AND THEN “ABO”. AFTERWARDS YOU CAN SELECT 
A SINGLE TEST. THIS TEST RUNS IN AN ENOLESS LOOP UNTIL 
THERE IS AN ERROR MESSAGE OR (CNTRL C) AGAIN. 

START TEST 1 

ENO TEST 1 

START TEST 2 

END TEST 2 


START VEST BS ...cccces ere. 


END TEST 14 
END OF TESTING 


IEC REGISTER ADDRESS MAY BE ENTERED IN FORMAT 16XXX0 
TEC-BUS ADDRESS RANGE: 0... %& 


SEQ 4 


6.0 


7.0 


a! 


ERROR-HANOLING 


ee ee ee ed 


ALL ERROR MESSAGES ARE EITHER SELF -DEFINING OR OF THE 
ss GENERAL FORM: 

ERROR XXX 
WHERE KAX IS AN OCTAL ERROR NUMBER BETWEEN 1 AND 377. 
FOR A DETAILED DESCRIPTION OF THE DIFFERENT ERRORS 
OF THIS PROGRAM HAVE A LOOK 
AT THE APPROPRIATE PAGES LATER IN THE LISTING. 


NOTE:; ERRORS MAY NOT OCCUR IN SEQUENCE. 
: 


FOR EXAMPLE: 
3 ERROR 45 MIGHT OCCUR BEFORE ERROR 21 
3 THIS DEPENDS ON THE STRUCTURE OF THE PROGRAM. 


RESTRICTIONS 


Se te ee 


EXECUTION TIME AND ORIGINAL EQUIPMENT 


Se 


THIS DIAGNOSTIC WAS DESIGNED AND TESTED AT CSS/D0P 
WITH THE ACCORDING CSS-HARDWARE EQUIPMENT. 

A NORMAL ERROR-FREE RUN ON THAT EQUIPMENT 

TAKES ABOUT 4 MINUTES 


SEQ 5 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


3; ERROR 


. SBTTL 
1 


10 


11 


12 


13 


14 


15 


16 


17 


20 


Gl 


IEC -ERROR DESCRIPTIONS 
SMR CONTENT IS ILLEGAL AFTER A MASTER CLEAR 
SHOULD BE : 0; WAS: RO 


CIR CONTENT IS NOT ZERO AFTER A MASTER CLEAR 
SHOULD BE: O; WAS: RO 


IOR CONTENT IS NOT ZERO AFTER A MASTER CLEAR 
SB: O; WAS: RO 


SACS BIT IN CIR NOT SET BY “BIS” FUNCTION 
RO = CIR CONTENT 


RO = CIR CONTENT 


SACS BIT NOT RESET BY MASTER CLEAR 
RO = CIR 


SIC PRODUCES “ILLEG. a ’ Ry hes SACS TRUE 
RO = CIR CONTENT * SMR 


SIC DOES NOT BRING ‘SIAS’' BUT NO ‘ILLEG. MESS’ 
OCCURS. 
RO = CIR CONTENT Ri = SHR 


SIAS BIT O TO 1 CHANGE DOES NOT PRODUCE A 
‘STATE CHANGE’ 


RO = CIR "R1 = SMR 
SIAS DOES NOT BRING CACS. 
RO = CIR Ri = SMR 


SIAS DOES NOT ot ZERO AFTER MORE THAN 200 MS. 
RO = CI = SMR 


= "STAVE CHANuc ' ty ~~ ‘SIAS’' 1 TO O CHANGE. 
= CIR Ri = SMR 


CACS IS NO LONGER .TRUE. WHEN ‘SIAS’ IS RESET TO O. 
RO = CIR Ri = SMR 

MC DOES NOT RESET CACS 

RO = SMR 


NO at ee MESSAGE> TO <SICS> WHEN <SACS> 


NO INTERRUPT OCCURED AFTER SENDING <SIC>. 


(<ILLEGAL MESSAGE> SHOULD OCCUR AND BRING AN INTERRUPT. ) 


RO = CIR 


SEQ 6 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


22 


23 


H1 


THE INTERRUPT THAT OCCURED AFTER SETTING <SIC> 

WITHOUT <SACS> WAS NOT, OR NOT EXCLUSIVELY CAUSED 

BY <ILLEGAL MESSAGE>. 

BITS 8-15 OF RS = ‘SHOULD BE’ CONTENT OF CIR BITS 6-15 
RO = ACTUAL CONTENT OF CIR 


SETTING OF <SACS> AND <SIC> SHOULD BRING <SIAS>, 
WHICH IN TURN SHOULD FORCE AN INTERRUPT By SETTING 
<STATE CHANGE>, BUT NO INTERRUPT OCCURED. 

RO = CIR 

Ri = SMR 


THE INTERRUPT THAT OCCURED AFTER SETTING <SACS> 

AND <SIC> WAS NOT OR NOT EXCLUSIVELY CAUSED By 
<STATE CHANGE>. 

BITS 8-15 OF RS = ‘SHOULD BE’ VALUE OF CIR BITS 8-15 
RO = ACTUAL CONTENT OF CIR 


<SRE> IN SMR NOT SET 


RO = CIR Ri = SMR 
<SRE> PRODUCES <ILLEGAL MESSAGE> WITH <SACS> SET. 
RO = CIR CONTENT Ri = SMR CONTENT 


<SRE> DOES NOT BRING mar 9 by Ae <ILLEGAL MESSAGE> OCCURS. 


RO = ICR 


<SRAS> O TO 1 CHANGE = Not PRODUCE <STATE CHANGE>. 
RO = CIR Ril = SMR 


<SRE> IN SMR CAN'T BE — By A ‘BIC’ INSTRUCTION. 
RO = CIR = SMR 


CLEARING OF <SRE> DOES NOT RESET <SRAS> IN SMR. 
RO = CIR R1 = SMR 


CLEARING OF <SRE> DOES NOT OR NOT ONLY PRODUCE 
A <STATE CHANGE>. 


RO = CIR R1i=SMR 

<INTERRUPT ENABLE> IN CIR CAN NOT BE SET. 

RO = CIR 

<INTERRUPT ENABLE> IN CIR CAN NOT BE CLEARED. 
RO = CIR 

<CSBS> NOT SET AFTER SETTING <GTS>. 

RO = CIR R1 = SMR 


<CSBS> SETTING DOES NOT a <STATE CHANGE >. 
RO = CIR Ril = SMR 


SEQ 7 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


43 


Aad 


4s 


46 


47 


Si 


53 


Ti 


NO <ILLEGAL MESSAGE> TO SETTING OF <GTS> 
IN ‘STAND BY’ STATE. 


RO = CIR Rl = SMR 
<TCA> IN <CSBS> DOES NOT OR NOT ONLY PRODUCE <STATE 
CHANGE>. RO= CIR Ri = SMR 


<TCA> IN <CSBS> DOES NOT OR NOT ONLY PRODUCE <CACS>. 
RO = CIR Ri = SMR 


ot a arpa THE TALKER IN <CACS>, NO INTERRUPT 
THE INTERRUPT SHOULD HAVE BEEN SET By <DATA ACCEPTED>. 
RO = CIR Ri = SMR R2 = IOR 


AN INTERRUPT OCCURED BY ADDRESSING THE TALKE 
BUT IT WAS NOT OR NOT ONLY CAUSED BY <DATA ACCEPTED>. 
RO = CIR Ri = SMR R2 = IOR 


AFTER SUCCESSFULLY ADDRESSING THE TALKER, IT IS NOT 
POSSIBLE TO SET <CSBS> AND <TACS> CORRECTLY By <GTS>. 
RO = CIR Ri = SMR R2 = IOR 


WHEN SENDING A DATA BYTE WITHOUT ADDRESSING THE LISTENER, 


NO INTERRUPT OCCURED. 
RO = CIR Ri = SMR R2 = IOR 


<TCS> DOES NOT PRODUCE <ILLEG. MESSAGE> 
RO = CIR Ri = SMR 


LOW ORDER BYTE OF IOR <BITS O-7> CNA NOT BE SET OR 
READ BACK CORRECTLY. 

‘SHOULD BE’ = ALL ONES ‘IS’ = RO 

BITS 8-15 CAN BE IGNORED BUT SHOULD BE ZERO. 


WHEN SENDING THE LISTENER ADDRESS, NO INTERRUPT OCCURS. 
RO = CIR R1 = SMR R2 = IOR 


SENDING THE LISTENER ADDRESS FORCES AN INTERRUPT THAT 
WAS NOT OR NOT ONLY CAUSED BY <DATA ACCEPTED>. 
RO-R2 SAME AS ERROR SO 


AFTER LISTENER ADORESSING AND <GTS>» NO <LACS> IS SET. 
RO-R2 SAME AS ERROR SO 


NO INTERRUPT TO TALKER ADDRESSING 
RO-R2 SEE ERROR SO 


WHEN SENDING A SECOND DATA BYTE BEFORE READING THE FIRST 
AGAIN <DATA ACCEPTED> CAME UP. 
RO-R2 SEE ERROR SO 


SEG 8 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


5S 


70 


71 


72 


73 


74 


J1 


FIRST DATA BYTE SENT AND RECEIVED IS NOT THE SAME, 
RO-R2 SEE ERROR 50 


AFTER READING THE FIRST SENT DATA BYTE, THE SECOND SENT 
OID NOT BRING <DATA ACCEPTED>. 
RO-R2 SEE ERROR SO 


SECOND DATA BYTE SENT AND RECEIVED IS NOT THE SAME. 
RO-R2 SEE ERROR SO 


SENDING OF DATA BYTE DOES NOT PRODUCE AN INTERRUPT. 
RO-R2 SEE ERROR SO 


SENDING A DATA BYTE FORCES AN INTERRUPT THAT WAS NOT 
OR NOT ONLY PRODUCED BY <DATA ACCEPTED>. 
RO-R2 SEE ERROR SO 


DATA BYTES SENT AND RECEIVED ARE NOT EQUAL. 
RO-R2 SEE ERROR SO 


NO <DATA ACCEPTED> WHEN SENDING A BYTE WITH <LAST BYTE> SET. 


RO-R2 SEE ERROR 50 


NO <END> TO <LAST BYTE> 
RO-R2 SEE ERROR SO 


DATA CHECK ON <LAST BYTE> 
RO-R2 SEE ERROR SO 


NO <LACS> TO <LTN> 
RO-R2 SEE ERROR 50 


NO <LCAS> AFTER THE FOLLOWING COMMAND SEQUENCE ; 
({LTN-GTS-TCA-GTS) 
RO-R2 SEE ERROR SO 


<LACS> STILL SET AFTER THE FOLLOWING ‘SEQUENCE : 
(LTN-GTS-TCA-LUN-GTS] 
RO-R2 SEE ERROR SO 


<BLOCK DAC> CAN NOT BE SET 
RO-R2 SEE ERROR 50 


<BLOCK DAC> CAN NOT BE RESET 
RO-R2 SEE ERROR SO ' 


SENDING A BYTE WITH <BLOCK DAC> FORCES AN INTERRUPT 
RO-R2 SEE ERROR SO 


DATA BYTES SENT AND RECEIVED WITH <BLOCK DAC> ARE 
NOT EQUAL. 
RO-R2 SEE ERROR 50 


SEQ 9 


"ROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


75 


76 


77 


100 


101 


102 


103 


104 


105 


106 


107 


110 


111 


112 


113 


NO <SRQ> TO <RSV> 
RO-R2 SEE ERROR SO 


NO <SPAS> TO <SPE> 
RO-R2 SEE ERROR 50 


DATA CHECK ON STATUS BYTE 
RO-R2 SEE ERROR SO 


<SRQ> NOT OFF AFTER STATUS BYTE RECEIVED 
RO-R2 SEE ERROR 50 


NO <TACS> AFTER <SPD> 
RO-R2 SEE ERROR SO 


<RPP> CAN NOT BE SET 
RO-R2 SEE ERROR 50 


<RPP> CAN NOT BE RESET 
RO-R2 SEE ERROR SO 


NO <ILLEG. MESSAGE> WHEN SENDING <SRE> 
WITHOUT SENDING <SACS> BEFORE. 

RO-R1 SEE ERROR SO 

BIT 10 IN CIR NOT SETTABLE By “BIS” 
INSTRUCTION CINHIBIT SRQ INTERRUPT ) 


BIT 10 IN CIR NOT RESETTABLE BY “BIC” 
INSTRUCTION 


SEE ERROR 105 


BIT 10 IN CIR NOT RESETTABLE By MASTER CLEAR 


BIT 7 CINTERRUPT) SHOULD BE SET WITH 


CLEAR SRQ INT INHIBIT BIT (BIT 10 IN CIR) 


BIT 7 CINTERRUPT) NOT CLEAR WITH INHIBIT 
SRQ INTERRUPT BIT SET (CIR) 


BIT 7 IN CIR NOT SET AGAIN WITH 
INHIBIT SRQ INT BIT CLEAR AGAIN 


K1 


SEQ 10 


ERROR 114 


ERROR 115 


ERROR 116 


ERROR 117 


B! 


CIR SHOULD CONTAIN #602 (STATE CHGE,INT,LON) 
SMR SHOULD CONTAIN ONLY BIT 12 (LACS) 


CIR SHOULD CONTAIN #600 (STATE CHANGE, INT) 
LON MUST BE CLEAR AGAIN 


LACS DISSAPPEARED WITH LON SWITCH IN INACTIVE 
POSITION (POS. 2) AFTER FORMER ACTIVATION 
OF THIS SWITCH. 


SEQ 11 
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* 
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a 
& 
& 
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& 
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a 
a 
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* 
e 
* 
* 
a 
* 
a 
am 
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& 
a 
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9.0 


A) USING A PROCESSOR WITH A SWITCH PANEL 


BUSING 


UPDATED 
UPDATED 
UPDATED 
UPDATED 
UPDATED 
UPDATED 


AUTHOR: BERT HUBER CSS 


TO vO1EO02 BY B.BAUDISCH 
TO VO2EOO BY B.BAUDISCH 
TO VO2EO1 BY B.BAUDISCH 
TO VO3EO02 BY G. SZENTES 
TO VO3EO3 BY G. SZENTES 
TO ZIEBAO BY J. LEVESQUE 


AREKHRHEARKAEEHERAAEEALRRAHREEERASHRRERHEEH 


DIAGNOSTIC MONITOR DESCRIPTION 


STARTING 


PRODUCT CODE: AC-T883A-MC 
PRODUCT NAME: IEC-11A MAIN TEST 
DATE: 20-JUN-76 (VO1E00) 
29-SEP-76 (VO1E01) 
27-JAN-77 (VO1E02) 
01-MAR-77 (VO2E00) 
01-APR-77 (VO2E01) 
01-FEB-80 (VO3E02) 
22 -APR -80 (VO3E03) 
12-MAR -84 (ZIEBAO) 
MAINTAINER: CSS/DP MUNICH 


PROCEOURE 


ere ee erereer ee 


oe 
oe 
* 
oe 
« 
& 
& 
a 
& 
& 
& 
2 


PLACE START ADDRESS INTO SWITCH REGISTER 


CSTART ADDRESS IS 1000 OCTAL ) 
PRESS “LOAD ADDRESS” SWITCH 


PRESS “START” SWITCH 
AM SHOULD BEGIN TO PRINT OUT THE IDENTIFICATION- 


PROGR 
PRINTOUT. 


A LSI11 


TYPE IN ST. ADDR., (1000 OCTAL) AND 


"G ” 


M1 


INTO ONE LINE. 


PROGRAM STARTS WITH IDENTIFICATION PRINTOUT. 


SEQ 12 


ee 6: @s Ge © Ge Ge Gs OF Gs Oe Ge Os Gs GF GF Ge GF Ge Ge Ge Ge Ge Ge GF GF Gs GF GF Ge Ge Ge GF Ge Ge Gs Ge GP Ge GH Ge Ge GH GF Ge GF GF OF OF GH OF OF 


Ni 


SEQ 13 


C)USING A PROCESSOR WITHOUT A CONSOLE (11/04,11/34) 


A) 


PRESS “CNTRL” AND “BOOT” BUTTONS. ODT CONSOLE 

ROUTINE PRINTS A $-SIGN,. 

TYPE IN “L 1000” AND A * ae 

TYPE AFTER THE “$” AN “S” AND <CR>. PROGRAM SHOULD BEGIN TO 
PRINT IDENTIFICATION PRINTOUT. 


OPERATING PROCEDURES 


TO OPERATE AN ERROR SEE UNDER A) 
TO MODIFY A LOCATION SEE UNDER C) 
TO DUMP A LOCATION SEE UNDER 8B) 
TO ABORT THE RUNNING PROGRAM SEE UNDER 0) 


ALL INPUT/OUTPUT OPERATIONS ARE DONE VIA THE DIAGNOSTIC 
MONITOR. NO SWITCH SETTINGS ARE USED. 

ALL COMMANDS, REQUIRED WHEN AN ERROR OCCURS, ARE 
ENTERED VIA THE TERMINAL. 

THESE COMMANDS SET OR CLEAR BITS IN A MEMORY LOCATION 
CALLED PSEUDO-SWITCH REGISTER. 

THE FOLLOWING OPTIONS ARE AVAILABLE: 


HALT AFTER ERROR( DEFAULT) 
NO HALT AFTER ERROR 
PRINT ERROR MESSAGE (DEFAULT ) 
NO ERROR PRINTOUT 
COUNT ERRORS 
NO ERROR COUNT (DEFAULT) 
SCOPE LOOP ON THIS ERROR : 
NO SCOPE LOOP (DEFAULT) : 
CONTINUE - SWITCH 


WHEN AN ERROR OCCURS, THE FOLLOWING TEXT IS PRINTED: 


~‘ 

on 

“4 
oeeeene#enesnk 


ERROR OOOXXx 
AT LOCATION: XXXKKX 
HALT AFTER ERROR eine 


THE ERROR NUMBER CAN BE IN THE RANGE 0 $77. 
THE LOCATION ADDRESS IS ABSOLUTE. 


WHEN AN ERROR IS FOUND, THE PROGRAM IS INTERRUPTED. 

THE ERROR NUMBER, ERROR LOCATION AND PSEUDO STOP MESSAGE 
ARE PRINTED. THEN THE DIGNOSTIC MONITOR wAI'TS § OR 

INPUT OF OPTIONS. 


ee @s Ge @e G+ GF OF Ge G+ Ge Oe Os Ge Gs Gs GF Ge OF GF OF GF GF OF GF GF Ge OF Ge Gt Ge GH Ge OF Ge OF GF Gs GF GF Ge GF GH GH GF GF GF Ge GH GF Ge GF OF 


8) 


Bo 


PRESS <CNTRL. C> AND THE “PROMPT STRING” IS PRINTED AT 
THE BEGINNING C” A NEW LINE. 


COM> 
eee (PROGRAM PRINTS WILL BE UNDERLINED FROM NOW) 


NOW YOU CAN SELECT THE OPTIONS YOU NEED TO FIND THE ERROR. 
THE SYNTAX OF A COMMAND LINE IS AS FOLLOWS: 


COM>ERR=/0PT1/0PT2/0PT3/...OPTN/CONT <CR> 


IF THERE IS A ERROR IN THE INPUT LINE THE FOLLOWING 
MESSAGE IS PRINTED: 


SYNTAX ERROR ! 


YOU CAN NOW REPEAT THE INPUT. 


ANY COMBINATION OF OPTIONS IS LEGAL, BUT PROBABLY NOT USEFW. 


WHEN YOU TYPE /SC/NS THE FIRST OPTION IS OVER- 
WRITTEN. THE COMMAND LINE IS INTERPRETED FROM LEFT TO RIGHT. 


THE LAST OPTION IN A LINE MUST BE /CONT. 
00000 0000000000000000000000000000000000000 


THEN THE MONITOR RETURNS CONTROL TO THE POINT OF PROGRAM 
WHERE THE ERROR WAS ENCOUNTERED AND THE PROGRAM CONTINUES 
WITH THE ENTERED OPTIONS. 


OPTION 3 OMP 

THIS OPTION CAN BE USED TO CHECK THE CONTENT OF A 

MEMORY LOCATION OR A REGISTER. 

IT CAN ONLY BE CALLED AFTER AN ERROR OR WHEN YOU INTERRUPTED 
a ee PROGRAM BY PRESSING "CNTRL C”. 

AFTER AN ERROR PRINT YOU PRESSED "“CNTRL C” ANDO THE MONITOR 
RETURNED THE PROMPT STRING: 


COM> 


IF YOU WANT TO CHECK LOCATION 1000 AND IT CONTAINS 
E.G. 012767, SO YOU HAVE TO TYPE AFTER THE PROMPT STRING 


COM >DMP 7001000<CR> 


SEQ 14 


e+ oe © Ge 6+ Ge @F GF G+ Ge os GF G+ Ge GF Ge GF GF OF GH Gs Ge Ge GH Ge GF GF Ge Gs GF Ge GF Ge GF Gt OF Ge GF OF GF GF GF GF GF Gs Oe GH Ge ae OF GF 


Cc) 


10.0 


C2 


THE MONITOR WILL PRINT THE CONTENT OF LOCATION 1000. 


THE MONITOR RETURNS NOW INTO ITS WAIT ROUTINE AND WAITS 
FOR FURTHER INPUTS. 


OPTION H SET 

THIS OPTION CAN BE USED TO MODIFY THE CONTENT OF A 

MEMORY LOACTION OR OF A REGISTER 

IT CAN BE CALLED ONLY AFTER AN ERROR OR WHEN YOU INTERRUPT 

THE RUNNING PROGRAM. TO CALL THE MONITOR PRESS “CNTRL C” AND THE 
MONITOR ANSWERS, AS PREVIOUS SEEN, BY PRINTING 


COM> 


IF YOU WANT TO ge LOCATION 1000, YOU HAVE TO 
TYPE ON THE SAME LINE 


tt at etal 


THE LOCATION CONTAINS NOW 
ZERO. INPUT OF NEW MEMORY LOCATION — MUST BE SIX 
OCTAL DIGITS LONG WITH LEADING ZERO'S 


OPTION : ABO 


THIS OPTION CAN BE USED ONLY AFTER AN ERROR OR WHEN YOU 
INTERRUPT THE RUNNING PROGRAM BY PRESSING “CNTRL C” . 
USING THIS OPTION ALLOWS TO ABORT THE PROGRAM AT CURRENT 
POINT OF TEST ANO EITHER TO GO TO BEGIN OF TEST , OR IF 
SUPPORTED, TO CALL A SUBTEST. 

AFTER PRESSING “CNTRL C” THE MONITOR RETURNS WITH 


COM> 


TYPE NOW ON THE SAME LINE 
COM>ABO<CR> 


AND THE PROGRAM WILL GO TO BEGIN OF TEST 
IF yvOU ENTER O OR <CR> OR TOA 
ROUTINE WHERE vOU CAN SELECT A SUBTEST . 


LISTING 


eereeree 


SEQ 15 


De 


tHBCE- or "EGRPENHEO® SO-MAR 84 16:02 


LOW -CORE 

INITIALISATION 

MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP 
$..MAP MAPPING ROUTINE 


SPAHHHHHHHEHHOHHHOOOSH OS 
S Lal 
S30mMo 


** TOT 
"BUF 
Test SELECT ROUTINE 


TEST 1 EXECUTE MASTER CLEAR 


TEST 2 TEST SACS BIT IN CIR 

TEST 3 TEST CIR BIT 10 INHIBIT SRQ INTERRUPT 

TEST 4 TEST SACS SIC SIAS ILLMSG CACS 

TEST S TEST INT ENB 

TEST 6 TEST INTERRUPT WITH STATE CHGE 

TEST 7 TEST STATE Am INTERRUPT WITH SRAS 

TEST 8 - IOR DATA T 

TEST 9 TEST STATE CHGE INTERRUPT WITH GTS AND SIC 


TEST 10 TEST DATA TRANSFER WITH INTERRUPT 

TEST 10A -- RANDOM TALKER AND LISTENER DATA TEST 
TEST 11 -- TEST FUNCTION OF <LTN> AND <LUN> 

TEST 12 -- TEST FUNCTION OF <BLOCK DAC> 

TEST 13 -- TEST FUNCTION OF <RSV>,<SRQ> AND <SPAS> 
TEST 14 --- TEST RPP BIT R/W 

IEC- INTERRUPT HANOLER 

SUBTEST ADDRESS TABLE 


MESSAGES 
CONSTANTS AND PARAMETERS 


SEQ 16 


TEC11-A DIAGNOSTIC 


ANS wtor 


000000 
000000 


EQ 


MACRO M1200 30-MAR-84 16:02 PAGE 2 


AIST 


COPYRIGHT (C) 1976 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSETTS 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ON A 

SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR 
ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH 
SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
a OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPEMENT WHICH IS NOT SUPPLIED By DEC. 


SEQ 17 


TEC11-A DIAGNOSTI 
Low-CoRE “ 


000200 


001000 


MACRO M1200 30-MAR-84 16:02 PAGE 3 


001000 


001204 


10$: 


-PSECT CSSMON 


MZOO1 


THIS CHANGE ALLOWS TO USE A MACRO THAT EITHER CLEARS 
THE PSW BY A “CLR” OR A “MTPS”. 


GSoo1 


THIS CHANGE ALLOWS TO START THE PROGRAM AT LOC. 200 


-REPT 30 


JMP 10$ 
.REPT «1137 


JMP START 
— 100 


sPOINT TO VECTOR +2 
sHANOLE ILLEGAL TRAP 


é 
sILLEGAL TRAP -HANOLER 
sPRIORITY = O 


sPOWERF AIL -RESTART -HANOLER 


sPRIORITY = O 


3 HANOL 
sPRIORITY = 0 


; 
sPOINTER TO VECTOR +2 
sHANOLE ILLEGAL TRAP 


; 
sINITIALIZE SYSTEM 


$ 
sPOINTER TO VECTOR +2 
sHANOLE ILLEGAL TRAP 


‘ 
: INITIALIZE SYSTEM 
3STACK -AREA 


3#eGSO0O1Lee 
3*#GSO001ee 
3#eGSOOles 
3*#GSO001ee 
3*eGSO0lses 
3#eGSO00lLes 
3**GSO001Lses 
3#eGS001Lse 
3eGSOO1Les 


SEQ 18 


i Ash Orns Ic 


012737 


012737 
004737 


052737 
012737 
005737 
001375 
000137 


G2 


MACRO M1200 30-MAR-84 16:02 PAGE 4 SEQ 19 


MZ001 


AS VERY FIRST INSTRUCTION DO A “RESET” TO CLEAR 
ALL HARDWARE THAT IS IN AN UNDEFINED STATE 


.SBTTL INITIALISATION 


START: RESET ;CLEAR THE WORLD 3MZ001 
001204 MOV @START,SP sSETUP SP 
001242 000004 MOV o¢..TYP,4 o— FOR TEST 
000006 CLR 6 
177776 a aePs iIs IT A POP OR ALSI ? 
a 
177777 007016 MOV @-1,$$PTYP sIT IS A POP 
BR TYP. .E :SKIP LSI PART 
007016 $..TYP: CLR $$PTYP s INDICATE A LSI 
STCKUP 
000006 000004 TYP..E: MOV 06,4 — 
000004 000006 MOV 04,6 
003424 000060 MOV o$. .KBI,a060 iSETUP KE YBOARD VECTOR 
000340 000062 MOV 0340 ,8062 
007026 MOV @KBBUFF ,RO IRESET ALL FLAGS 
1$: CLR CRO)> Fy 
007202 +4 Yio - 
001000 007172 MOV #1000, SCOPAD VIF NO SCOPE LABEL IS SET IN THE PROGRAM 
;THEN GOTO START AFTER ERR=/SC 
PSET 60 3SET PS TO O 3MZ001 
WRITE MVERSN 3SAY HELLO TO EVERYBODY 
007026 007146 MOV @KBBUFF ,.KBBPNT ;SETUP INPUT-BUFFER-POINTER 
001516 JSR PC.M..TST ;CALL MEM. TEST WITH MEM. MANAGEM. SETUP ;BBO0O1 
BR M..SAV 3GO TO SAVE HIGHEST MEMORY ADORESS ;86001 
M..TSE: 3HERE IF NO MEMORY MANAGEMENT FOUND 388001 
160000 MOV #160000 ,RO sSETUP MAXIMUM CORE -ADDRESS 
CLR R1 3SETUP FOR MEMEND+2 FOR UNMAPPED PROC. ;86001 
001410 000004 MOV @.+6,804 3SETUP TRAPHANDL ING 
001204 MOV @START,SP sREBUILD STACKPOINTER 
TST -C(RO) sTOP OF CORE? 
REMVEC #2 sREBUILD TRAP TO 4 VECTOR 
M,.SAV: sHERE IF HIGHEST MEMORY ADDRESS FOUND ;6B001 
007022 MOV RO,MEMEND sSAVE HIGHEST MEMORY ADDR. 
007024 MOV R1,MEMEND+2 ;SAVE EXTENSION BITS 
ASR R1 sPUT ADOR16 INTO CARRY 388001 
ROR RO sROTATE ADOR16 INTO MSB OF RO :88001 
ASR R1 sPUT ADOR17 INTO CARRY 388001 
ROR RO sROTATE one INTO MSB OF RO :8B001 
CLC sRESET CAR 3;88001 
ROR RO 3SHIFT Sur. THE LS-OCT-DIGIT OF PHYS ADOR ;8B001 
DUMP OCcT,RO ;DUMP ADDRESS 
WRITE NO6 sPRINT LS-OCT-DIGIT ALWAYS AS “6” ;68B001 
000100 177560 BIS OBIT6,AeTKS sENABLE TTY INTERRUPTS 
000042 000040 MOV 042 ,8040 sPREP THIS LOCATION FOR USING XxDP 
007152 ba OUTFLG °: eseecgeas OUTPUT 
.-4 


010614 JMP COM. .E ; NOW WE ARE ON THE AIR 


He 
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012737 


012716 
042737 
000422 


012737 


001374 


. SBTTL 
SUBROUTINE : 


SEQ 20 


MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP 


M..TST 


sTHIS ROUTINE CHECKS THE AVAILABILITY OF A MEMORY MANAGEMENT UNIT 

3 IN POP-11 PROCESSORS AND SETS KISARO,..KISARS TO THE LOW 24K -WORDS 
3;O0F THE COMPUTER MEMORY 
;KISAR7 IS USED TO MAP THE SO-CALLED I/0 PAGE 


sKISAR6 IS USED TO MAP THE HIGHEST 


‘ 
; INPUT: 


F 
;OUTPUT: 
3 


3 
3; AUTHOR: 
a 


3 
WH. .TSTs 


208: 


30%: 


177572 


403: 
45$: 


000250 M..RET: 
000252 


MEMORY ADDRESS CHECK POINTER . 


(SP) *RETURN ADDRESS 
RO *LOW 16 ADDRESS BITS OF HIGHEST MEMORY ADDRESS 
R1 *BITS 0,1 ADDRESS BITS 16,17 


BERNHARD BAUDISCH CSS/DP MUNICH 19-DEC-78 


om. . TRP,@0250 


ae2S2 
OM. . TRP,304 


M..MMM 

#7400 ,KISAR6 
@1,$$MTYP 
#157776,RO 
OM. .HIM, 804 
RO 


M..DET 

#200 ,KISAR6 
30$ 

20% 


0 

MEMDEF 

om. .TSE,(SP) 
#BITO, SRO 
M..RET 


252, 80250 
04 ,80252 
06,904 


sREFERENCE LABEL 
sSETUP SEGMENTATION TRAP CATCHER 


Bees 
s;SETUP TRAP-4 CATCHER 


$ eee 

sSETUP DEFAULT MAPPING,ENABLE MM 

sMAP WITH KISAR6 THROUGH MEMORY 

sREMEMBER THAT WE HAVE MEMORY MANAGEMENT! 
3GET HIGHEST ADDRESS WITHIN APR6 RANGE 
3SET UP TRAP 4 CATCHER 

3SEE IF ADDRESS PRESENT 

3CC IF ADDRESS FOUND 

sMAP TO NEXT LOWER 4K WORD BANK 

sTHIS CASE SHOULD NEVER HAPPEN 

sCHECK NEXT LOWER 4-K WORDS 

sHERE ONLY IF MAIN PROCESSOR HARDWARE ERROR 
sSET PRIORITY TO O 

sMEMORY MANAGEMENT DEFECT 

sMODIFY RETURN ADDRESS TO UNMAPPED SYSTEM 
sDISABLE MM 

sAND GO AHEAD LIKE UNMAPPED SYSTEM 
sHIGHEST MEMORY ADDRESS FOUND 

3GET MAP REGISTER CONTENTS 


; 
sPUT ADDRESS BIT 17 INTO PSW CARRY 


3 
sCS_IF ADORESS BIT 17 SET 
sHERE IF BIT17 NOT SET 


Bees 

sFLAG BIT 17 FOUND 

sGET ADDRESS BIT 16 

s INSERT BIT IN MEMORY EXTENSION MASK 
sMASK OUT APR SELECTION BITS 

sBUILD 16 BIT BASE ADDRESS 

3-->RO FOR OUTPUT TO CALLER 

sRESET SEGMENTATION TRAP CATCHER 


Bees 
sRESET TRAP-4 CATCHER 


IEC 
ME 


aa! 


DIAGNOSTIC 
vy TEST wl 


fn MEMORY 
012737 
000207 
012716 
000760 
052766 
000002 


022626 
005726 
000137 


Ie 
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MANAGEMENT UNEY SETUP. O° 


000004 000006 
001374 


000001 000002 


001760 


00 
000001 177572 


ze 


ee SESS OE SSS Re ee ee 


. DET: 


. HIM; 


.. TRP; 


10%: 


MOV 
RTS 


MOV 
BR 


RTI 


44,806 
PC 


om. .TSE,CSP) 
M..RET 


oBITO,20SP) 


SUBROUTINE M. .MMM 


Bees 
sRETURN TO CALLER 


sMERE IF MEMORY MANAGEMENT ADDRESS NOT FOUND 


sMODIFY RETURN ADDRESS 
OMMON 


sRETURN C 


sTRAP-4 AND SEGMENTATION TRAP CATCHER 
sSET CARRY IN RETURN PSW SETUP 
sRETURN WITH CARRY SET INDICATOR 


sCLEAN STACK OF INT. VALUES 
;CLEAN STACK FROM RETURN ADDRESS 
sNO MEMORY MANAGEMENT UNIT AVAILABLE 


THIS ROUTINE IS CALLED TO SET UP THE APR AND POR 
REGISTER WITH DEFAULT VALUES AND TO ENABLE MEMORY 
MANAGEMENT . 


INPUT: 


NONE 
OUTPUT: ALL PORS ARE PRESET WITH 77406 
APRO IS PRESET WITH O 


. SBTTL 


APR 1 ” 
APR 2 “ 


APR? ” 
MM IS ENABLED 


RO,R1,R2 
@77406,RO 


#200,(R2)+ 
#400,(R2)-> 
#600, (R2)>+ 
#1000, (R2)-> 
#1200, (R2)> 
#1400, (R2)+ 
#7600, @R2 
&BITO,SRO 
R2,R1,RO0 


200 
400 


7600 


3 SAV 


sSETUP KISAR 


3 Is 
sENABLE MEMOR 


vE 
sGET PAGE wed REGISTER SETUP 
OR 8 POR'S 


6 
7 TO I70 PAGE 


Y MANAGEMENT 


sRESTORE REGS. 
sBACK TO CALLER 
$..MAP MAPPING ROUTINE 


SEQ 21 


Fee TOTO Pe AAG ine MACRO M1200 30-MAR-84 16:02 PAGE 6 


177776 


000006 172354 


SUBROUTINE : 


. «MAP; 


10$: 


Je 


SEQ 22 


$. .MAP 


THIS ROUTINE IS USED TO MAP WITH APR6 TO THE PHYSICAL MEMORY 
ABOVE 28. K AND COMPARE DMA READ AND WRITE DATA 


INPUT: (SP) *RETURN ADDRESS 
2(SP) #100 OCTAL BYTE BLOCK OFFSET 
4(SP) “MAPPING POINTER 


OUTPUT: KERNEL APR6 IS MAPPED TO BUFFER START ADORESS 
MAPPING POINTER IS SET TO BASE ADDRESS OF APR6=140000 
CARRY IS SET IF NO MEMORY AVAILABLE 
BREAKPOINT TRAP, IF YOU TRY TO MAP TO COM (0-4.K) 


AUTHOR: ALBERT BREM CSS MUC 16-JAN-79 


sSAVE REGISTERS 


PUSH RO,R1 
| 6(SP) GE #200 GOTO 108 s00NT MAP TO SYSTEM AREA 


T MAP TO SYSTEM AREA 


JMP 2% ;LEAVE 

CALL M..MMM ;ENABLE MM,SETUP DEFAULT MAPPING 
HOV MEMEND , RO ;SAVE HIGHEST MEMORY LOCATION 
ROR RO ;sCOMPUTE 100 OCTAL BYTE BLOCKS 
BIC #176000,RO " 

MOV MEMEND +2, ;SAVE MEMORY EXTENSION 

ASL Ri ;COMPUTE ADDITIONAL BLOCKS 

ADD RO,R1 ; TOTAL BLOCKS OF 32.WORDS MEMORY 
BIC @BITO,a0PS ;CLEAR CARR 

CMP R1,6(SP) ;I1S MEMORY AVAILABLE? 

BGE 1$ sYES 

PREAD RO ;SAVE CURRENT PSw 

BIS @BITO,RO Set CARRY FOR ERROR INDICATION 
BR DONT TOUCH APR6 

MOV SSP), KISAR6 ;MAP TO BUFFER AREA 

POP R1,RO ;RESTORE REGISTERS 

MOV (SP)+, (SP) ;CLEAN STACK OF ARGUMENT 

RETURN ;BACK TO CALLER 


Ke 
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267 -SBTTL $..EMT 
268 ; 
269 ; SUBROUTINE: $%..EMT 
on ; seeseenesas sessse 
: 
272 ;THIS ROUTINE HANDLES ALL EMT-TRAPS THAT MIGHT OCCUR 
273 + IN A DIAGNOSTIC PROGRAM, AND DIRECTS THE PROGRAM TO 
de sCONTINUE AT THE APPROPRIATE FUNCTION SUBROUTINES. 
o 
276 ; INPUT: 2(SP) = PS 
277 3 (SP) = PC 
359 sOUTPUT;: NONE 
: 
+4 s AUTHOR: BERT HUBER CSS/DP MUNICH 14-JULI-76 
3 
282 
283 -ENABL LSB 
284 002326 012746 177776 $..EMT: MOV @-2,-(SP) ‘eee’ EMT -ADOR. 
285 002332 066616 000002 ADD 2(SP),(SP) 
286 002336 017616 000000 MOV aC SP), (SP) iGET EMT - “CODE 
287 002342 042716 177400 BIC #177400,(SP) sEXTRACT EMT-NR. 
288 002346 006316 ASL (SP) sCONVERT TO TABLE -OFFSET 
289 002350. 021627 000004 CMP (SP), OEMTTND- EMTTBL - 2;VALIO EMT-NR.? 
290 002354 101413 BLOS 1$ ;IF LOS, YES 
291 002356 WRITE MILEMT VILLEGAL EMT 
292 002366 DUMP OCT ,2¢SP) ; 
293 002400 000137 001000 JMP 81000 sRESTART PROGRAM 
294 002404 062716 002416 1$: ADD OEMTTBL CSP) _ FUCTION CODE ADOR. 
295 002410 017616 000000 MOV acsP), (SP) 
296 002414 000136 JMP QC SP )> JENTER FUCTION SUBROUTINE 
297 002416 002424 EMTTBL: EMTO 
298 002420 002432 EMT1 
299 002422 002470 EmMT2 
Soe 002424 EMTTND: 
i 
34 ;SUBROUTINE TO SAVE SCOPE-LOOP ADDR. 
5 
304 002424 011637 007172 EMTO: MOV (SP), SCOPAD sSAVE ADOR. OF SCOPE -LOOP 
002430 000002 RTI sRETURN TO CALLER 
3 
a4 ;SUBROUTINE TO SETUP A VECTOR 
$ 
309 002432 017646 000010 EMT1: MOV 810(SP),-(SP) ;GET POINTER TO VECTOR ADOR. 
310 002436 016676 000010 000000 MOV 10(SP),a@¢ SP) sSETUP VECTOR 
311 002444 062716 000002 ADD #2,(SP) sPOINT TO NEW PS 
312 002450 016636 000006 MOV 6(SP),@CSP)-+ sSETUP NEW PS 
313 002454 012666 000004 MOV (SP)+,4(SP) sCLEAN UP STACK 
314 002460 012666 000004 MOV (SP)+,4(SP) ; . 
315 002464 005726 TST CSP )> H na 
te 002466 000002 RTI sRETURN TO CALLER 
a 
ied ; SUBROUTINE TO RESET A VECTOR 
3 
320 002470 017646 000004 EMTe: MOV @4(SP), -(SP) ;GET POINTER TO VECTOR A 
321 002474 011646 MOV (SP), -CSP) sOUPLICATE IT 
322 002476 062716 000002 ADD #2,(SP) ;BUILD ADDRESS OF VECTOR 


323 002502 012636 MOV (SP)+,@(SP)+ sRESET VECTOR 


FEC} AA DIAGNOSTIC 


327 002522 


012776 
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000004 177774 
000002 000004 


CSP )+,(SP) 


sRESET VECTOR +2 
sCLEAN STACK 


; 
sRETURN TO CALLER 


SEQ 24 


aC the 


DIAGNOSTIC 


012746 
0666 


011637 
032737 
001022 


032737 


032737 
001014 
032737 
001010 
032737 
001004 


032737 
001004 


Me 
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177776 
000000 
177400 
007166 
007160 
007166 


007166 
040000 


020000 
000002 


040000 
100000 
010000 


010000 


007160 


007160 


007160 
007160 
007160 


007160 


ee ee es Ge ee of oe GF Ge Ge Ge Ge Ge Ge GF GF oF oF oF 
* 


4$: 


S$ 


6$: 


-SBTTL $..TRP 
SUBROUTINE : $..TRP 


THIS ROUTINE HANDLES ALL TRAPS TO LOC 34 THAT MIGHT 


OCCUR IN A CSS-DIGNOSTIC PR 


OGRAM 
AS THE TRAP INSTRUCTION IN THIS DIAGNOSTICS IS Sow USED TO 


INDICATE AN ERROR CONDITION, THIS TRAP-HANDLER 


A C(PSEUDO-) 


SWITCH-REGISTER CONTROLLED ERROR HANDLER. FOR THE DEFINITION 


OF ALL AVAILABLE ‘SWITCH’ -OPTIONS, REFER TO SUBROUTINE “S$. 


LATER IN THIS LISTING. 
INPUT: 2a¢(sP) = 


. TAE” 


PS 


(> »s PC 
LOW ORDER BYTE OF TRAP INSTRUCTION = ERROR NUMBER 


TST $..ER 
BEQ es 
TST PSOSWR 
BPL 3$ 
CMP (SP),$..ER 
BEQ 3$ 
WRITE MILSCP 
DUMP OCT ,2¢SP) 
GOTO START 
MOV (SP),$ 
BIT oBITis, “PSDSUR 
BNE 4$ 
WRITE MERROR 
DEC, (SP) 
WRITE MERRP2 
DUMP OcT,2¢SP) 
BIT @81T13,PSDSWR 
BEQ S$ 
INC 82¢ SP) 
BNE S$ 
WRITE MERCOV 
OUMP DEC, (SP) 
: BIT #B1T14,PSDSWR 
BNE 6$ 
BIT @RIT1S,PSOSWR 
BNE 6% 
BIT #BIT12,PSDSWR 
BNE 6$ 
WRITE MERHLT 
BIT #BIT12,PSDSWR 
BNE 7$ 


DEPENDING ON OPTIONS SELECTED 
BERT HUBER, CSS/DP MUNICH 


14-JUL - 76 


‘wenn TRAP ADDRESS 


iGET TRAP CODE 

sEXTRACT ERROR NUMBER 
sFIRST ERROR OCCURENCE ? 
3IF EQ, FIRST PASS 
sSCOPE LOOP ? 


3 

sSAME SCOPE LOOP ? 

sIF EQ, YES 

sILLEGAL SCOPE LOOP 

s;DUMP ADDRESS 4 ERROR +2 
SRESTART PROGRAM 

sSTORE ERROR NUMBER 

} INHIBIT PRINTOUT ? 

3IF NE, YES 

;PRINT ERROR MESSAGE PART 1 
;DUMP ERROR NUMBER 

i PRINT ERROR MESSAGE PART 2 
;DUMP ERROR PC +2 

‘COUNT ERRORS ? 

sIF EQ, NO 

sCOUNT ! 

sIF EQ, OVERFLOW 

sERROR COUNTER OVERFLOW 
DUMP ERROR NUMBER 


OOP ? 
3IF SCOPE, NO PRINT 
;HALT AFTER ERROR SELECTED 
3;IF NE, YES 
3STOP MESSAGE 
sHALT ? 
;IF EQ, YES 


SEQ 25 


Ne 
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386 003004 032737 004000 007160 BIT @BIT11,PSOSWR ;IMMEDIATE CONTINUE ? 
387 003012 001770 BEQ 6$ :IF NE,YES 
388 003014 042737 004000 007160 7%: BIC @BIT11,PSOSWR ;SCOPE LOOP ? 

389 003022 005737 007160 TST PSDSWR ; 

390 003026 100005 BPL 8$ sIF PL, NO 

391 003030 STCKUP 

392 003034 005726 TST (SP )+ sADJUST STACKPOINTER 
393 003036 000177 004150 JMP a@SCOPAD sENTER SCOPE LOOP 

394 003042 005037 007166 8$: CLR $..ER sRESET ERROR NUMBER 
395 003046 005726 TsT (SP )+ sREADJUST STACK 

396 003050 062716 000002 ADD #2,(SP) sBUILD RETURN ADDRESS 


397 003054 000002 RTI sRETURN TO CALLER 


B3 
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399 -SBTTL $..10T 
400 a° 
401 s SUBROUTINE: $&..I0T 
aot g *8eeeeeeeee eeseea- 
3 
roo s THIS SUBROUTINE HANOLES ILLEGAL TRAPS OR INTERRUPTS. 
4 

406 : IF SUCH A TRAP OR INTERRUPT OCCURS, A MESSAGE IS 
40? 3 PRINTED, SHOWING THE VECTOR TRAPPED TO, AND THE PROGRAMS PC 
408 3: WHERE IT WAS INTERRUPTED. 
a 3 THE PROGRAM HALTS THEN, AND MUST BE RESTARTED. 
41 : 
411 3 INPUT: 6( SP ) a PS OF PROGRAM 
412 ’ 4(SP) * PC OF PROGRAM 
413 ry 2( SP) ° PS OF VECTOR 
tet 3 . PC OF VECTOR +2 
41 3 
rt: 3s OUTPUT; MESSAGE TO THE OPERATOR 

1 ; 
rt! 3: AUTHOR: BERT HUBER, CSS/DP MUNICH 22-JUL-76 

1 - 
420 :.PSECT CSSMON 
421 -ENABL LSB 
422 003056 $..I0T: WRITE MILTR1 3SEND FIRST MESSAGE PART 
423 003066 162716 000002 SUB @2,(SP) sCOMPUTE VECTOR 
424 003072 Ouw OCT,(SP> sOUMP VECTOR ADORESS 
425 003102 WRI . MILTR2 sSEND SECOND MESSAGE PART 
426 003112 DUMP OCT ,4( SP) sOUMP PROGRAM PC 


427 003124 000777 


BR ° sHANG UP SYSTEM 
428 -OSABL LSB 


TEC11-A DOTAGNOSTIC 
$. .PUR 


012737 
013727 
000000 


005737 
001375 


013737 
005737 
001411 
013737 


112737 
005737 
001407 


013/37 
000002 
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003172 
007152 


007150 


177777 
003144 
007152 
007150 
003126 


005700 


007152 


003160 
007152 
003246 
000012 
003166 


003166 


000024 


000024 


007152 


005700 
177566 


007150 


; 
s SUBROUTINE : 


$. .PWR 
$..PWR 


} THIS ROUTINE IS DIRECTLY ENTERED AFTER EACH POWER-FAIL TO 
sHANOLE THE NECESSARY REGISTER SAVE OPERATIONS, 


SAF TER THE POWER-UP INTERRUPT TO RE 


AND IS USED 
STORE THE SAVED REGISTERS 


sAFTER A SUCCESFULL POWER-FAIL RESTART, A SHORT MESSAGEW IS PRINTED. 


BERT HUBER, CSS/DP MUNICH 27-JULY-76 
SAVE THE OUTFLAG IN 3% AND RESTORE IT 
AFTER PRINTOUT OF THE POWERFAIL MESSAGE 


$ 

s AUTHOR: 
F 

3 

ge 


83: 
4%: 


7%; 


63: 


MZO01 


3.PSECT 
NABL 


$°¢ 
s+ SUBROUTINE; 


CSSMON 


2% ,8024 
ateaneinis 
ree 


R2 


Re 
R2,0177777 


$..MSP,(PC)> 
9) 


PROME S 
5$, INFLAG 


LSB 
$..RSV 


$,.RSV 


LSB 
RO,R1,R2,R3,R4,RS 
SP.( PC)» 


sSAVE STACK -POINTER 

s STACKPOINTER - SAVE - AREA 
sSETUP VECTOR FOR RESTART 
sSAVE PRINT FLAG 3MZ001 
sSAVE FOR FLAG ;MZOO1 

sSAVE INPUT FLAG 

sSAVE WORD FOR INPUT FLAG 
sWAIT FOR POWER DOWN 

sDELAI 

3 THE 

sPOWER UP START 

sFOR 1SECONOD 

sREBUILD STACKPOINTER 

“‘eaae! PRINTOUT OF PWFRL MES. 


;REBUILO VECTOR SETUP 


sSAVE OLD MESSAGE POINTER 
i SAVE WORD FOR OLD MESSAGE POINTER 


34Z001 


3SENO POWER -FAIL -MESSAGE sMZOO1 
sWAIT FOR OUTPUT COMPLETE 3MZO001 
3 3™Z001 

sENABLE FURTHER TTY-INTERRUPTS 
sRESTORE FLAG IF IT WAS SET 3MZ001 


sIF AN OUTPUT BEFORE PWRFL WAS RUNNING 


é 

s THEN RESTORE OLD MESSAGE POINTER 

sAND ENABLE INT IN TPS 

sAND START INTERRUPT 

sIF AN INP FLG BEFORE PWRFL WAS NOT SET 


E 
sRESTORE INPUT FLAG IF IT WAS SET 
sCONTINUE WITH PROGRAM 


SEQ 28 


D3 
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$87 : THIS ROUTINE SAVES RO-RS ONTO THE STACK 
H 
4389 ’ 
po 3 INPUT; (SP) + CALLER PC 
3 
492 3 OUTPUT: (SP) «= RS CONTENT 
493 : 2csP) «= R4 CONTENT 
494 : 4(SP) «= R3 CONTENT 
495 : 6(SP) «= R2 CONTENT 
496 : 10(SP) = Ri CONTENT 
497 : 12(¢SP) «= RO CONTENT 
ase : 14(SP) «= CALLER PC 
i 
300 3 AUTHOR: BERT HUBER, CSS/DP MUNICH 12-APR-76 
1 g°- 
502 3.PSECT CSSMON 
503 -ENABL LSB 
504 003360 $..RSV: PUSH RO,R1,R2,R3,.R4,RS 
505 003374 000176 000014 JMP @14( SP) sRETUPN TO CALLER 
506 .OSABL LSB 


FEC} A DIAGNOSTIC 
$..RRS 


003400 
003402 
003416 
003420 


005726 


005726 
000176 177760 


7° 
: 
3 


E3 
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-SBTTL $..RRS 
SUBROUTINE : $..RRS 


THIS SUBROUTINE RESTORES RS-RO FROM THE STACK 


INPUT: (SP) = CALLER PC 
2¢sP) = SAVED RS 
4(sP) = SAVED R4 
6(SP) « SAVED R3 
10(SP) = SAVED R2 
12(SP) = SAVED R1 
14(SP) = SAVED RO 
16(SP) = OLD CALLER PC 
OUTPUT: REGISTERS ARE RESTORED AND STACK IS CLEANED 
AUTHOR : BERT HUBER, CSS/DP MUNICH 12-APR-76 
+.PSECT _— 
RRS: TST (SP )> sPOINT TO SAVED RS 
POP RS,R4,R3,R2,R1,RO 
TsT (SP >- sSKIP OLD CALLER PC 
JMP @-20(SP ) sRETURN TO CALLER 


SEQ 30 


IECi1-A 
$..KBI 


OIAGNOSTIC 
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007777 


003360 
177562 
000200 
000003 


006136 
007150 


003574 
000015 


007150 
007026 
007146 
004010 
003400 


177560 


007170 


* 


13%: 
4$: 


$$SPE: 


1%: 
5%: 


2s: 


. SBTTL 


SUBROUTINE : 


$. .KBI 
$. .KBI 


2(SP)= PS 
(SP) = 


rs 


PC 


THIS ROUTINE IS ENTERED IMMEDIATELY AFTER AN INTERRUPT 
FROM TTY-KEYBOARD. ALL REGISTERS ARE SAVED ACROSS CALL. 


INPUT: 


BERT HUBER, CSS/DP MUNICH 5S-APR-76 


CSSMON 
L 


R1,KBBPNT 
$..IAY 
$..RRS 


LSB 


33 3;OUTPUT RUNNING ? 
s33IF NE, IGNORE INTERRUPT 


33SA 


trp INHIBIT INTERRUPT 
333:GET CHARACTER 


3 3RE-E 


NABLE 
333sMASK OUT ASCII 
333 IS IT <CNTRL C> ? 
333IF NOT, RETURN 
SPECIAL FLAG 
333THIS FLAG IS USED TO FINISH 
333A RUNNING PRINTOUT AND THEN TO 
33;REMEMBER THAT <CNTRL C> WAS HIT 


33:SET A 


33 sREBUILD 


333 RETURN TO CALLER 
33:3SAVE ALL REGISTERS 
333;GET INPUT BYTE 


33sBUILD REAL ASCII 


333<CNTRL C> FUNCTION ? 


s33IF NE, 


333SENO PROMPT STRING 


333 INPUT FLAG SET 


ss3IF EQ, 


NO 
333PROCESS INPUT 
333WAS IT A <CR> ? 


s33IF NE, 


33sRESET INPUT MODE FLAG 
7 BUFFER POINTER 


tT EANAL YZE INPUT 
33 sRESTORE REGISTERS 


NO 


NO 


? 


. 


333RETURN TO CALLER 


SEQ 31 


tthe" 


DIAGNOSTIC 


013701 
012702 


G3 
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000057 
007162 


-SBTTL $.. INP 
s SUBROUTINE : $.. INP 


;THIS SUBROUTINE IS THE INPUT-HANOLER FOR ALL TERMINALS 
sUSED IN ALL CSS-MUNICH DIAGNOSTIC SOFTWARE GENERATED NOW 


3ANO LATER 


:THE SPECIAL FUCTIONS HANDLED BY THIS ROUTINE ARE: 


<CNTRL U> FOR LINE RUBOUT 


<DELETE> FOR CHARACTER RUBOUT 
PALL OTHER INPUT IS HANDLED AS NORMAL ASCI-TEXT AND STORED 


:IN THE KEYBOARD INPUT BUFFER. 


3 

3; INPUT: (SP) 2 

F RO 8 

3 

sOUTPUT: NONE 

3 

sAUTHOR: 

3 — 
-IDENT /V1.0/ 

FY -PSECT CSSMON 

-ENABL LSB 

$.. INP: MOV KBBPNT,R1 
MOV @$..KBO,R2 
CMP @KBBEND ,R1 
BNE 1$ 
CMP #25,RO0 
BEQ 2s 
CMPB #177,RO 
BEQ 1$ 
CLR INFLAG 
WRITE eal 

1$: CMPB #25,R0 
BEQ 6$ 

2s: CMPB #177,R0 
BNE 4s 
TST RUBFLG 
BNE 3$ 
MOV SP ,RUBFLG 
MOV @'7,RO 
CALL aRe 

38: CMP R1, @KBBUFF 
BEQ INP. .E 
MOVB -(R1),RO 
CALL. aR2 
BR INP. .E 

43; TST RUBFLG 
BEQ 5$ 
PUSH RO 
MOV o'7,RO 
CALL aR2 
CLR RUBFLG 
POP RC 

5$: CALL aR2 


CALLER PC 
CURRENT INPUT CHARACTER 


BERT HUBER CSS/DP MUNICH 


3;GET CURRENT BUFFER-POINTER 


::3POINT to KEYBOARD -ECHO 
33: INPUT-BUFFER FULL? 
s33IF NE, NO 

333<CNTRL U>? 

s33sIF EQ, YES. 
333<DELETE>? 

s33sIF EQ, YES. 

333sRESET INPUTFLAG 
333PRINT OVERFLOW-MESS. 
333PROMPT FOR INPUT 
s33<CNTL U>? 

333IF NE, NO 
333<DELETE>? 

333IF NE, NO 

s33FIRST RUBOUT? 

s23 IF NO 

333FLAG RUBOUT MODE 
a. “se 


PP aFULL LINE DELETED? 
ss3IF EQ, YES 

333NO, REMOVE CHARACTER 
:33AND ECHO IT 
333WAIT FOR NEXT INPUT 
333sRUBOUT MODE? 


NO 
333YES, SAVE CURRENT INPUT 
333NO OF RUBOUT 

333 3ECHO “se 

333RESET RUBOUT MODE FLAG 
333GET CURRENT INPUT AGAIN 
333ECHO IT 


TECi1-A 
$.. INP 


DIAGNOSTIC 


H3 
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MOvVB RO,CR1)>+ 
BR INP. .E 
000136 6$: MOV #136,R0 
CALL aRe2 
000125 MOV @'U,RO 
CALL 2 
007162 CLR LG 
007026 7$: MOV OKBBUFF ,R1 
006136 CALL $..PRO 
007146 INP..E: MOV R1,KBBPNT 
177777 MOVB -1€R1),RO 
RETURN 


LsB 


SEQ 33 


333SAVE IN IPUT BUFFER 
333WAIT FOR NEXT INPUT 
3s3ECHO “t” 

$38 

333ECHO “U” 

33 - 

333;LEAVE RUBOUT MODE 
SET INPUT BUFFER POINTER 
33 3PROMPT FOR INPUT 
33:3:SAVE POINTER 
333;SAVE LAST CHARACTER 
33sRETURN TO CALLER 


IEC1i1-A DIAGNOSTIC 
$..IAy 


122711 
001440 
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000015 
007174 
000104 
004210 
000123 
004402 
000105 
004472 
000101 
004120 
007156 
006262 


. SBTTL 


3¢ 
s SUBROUTINE : 


$.. IAY 
$..IAY 


° 
;LEGAL INPUT TYPES ARE: 


DMP = 


T= 


s INPUT: (SP)= 
OUTPUT: 


FOR ERROR -HANOL ING 

FOR CORE -OUMP OPTIONS 
SE FOR DEBUGGING OPTIONS 
NONFORMATTED INPUT FOR SPECIAL REQ. 


RETURN PC 
NONE 


BERT HUBER, CSS/DP MUNICH 
7 CSSMON 
LSB 


13 


333<CR>? 


s33IF EQ@., SKIP ANALIZATION 
33300NT ANALYZE IF ASCII INPUT RUNNING 
s33IF NE, YES. 


+3 sRETURN TO CALLER 
333‘SET” ~ orale 


s3IF 


+3 ANALYZE SET REQUEST 
333RETURN TO CALLER 
333 “ERR” -REQUEST? 


ss3IF NE, 


NO 
s33sANALYZE ERROR REQUEST 
333sRETURN TO CALLER 
333"ABO" REQUESTED ? 


s33IF NE, 


NO 
33 3ANAL YZE “yor me 
333RETURN TO CALLE 
333NO SYNTAX ERAGA. IF SPECIAL INPUT RUNNING 


333 
333 SYNTAX-ERROR 
333;RETURN TO CALLER 


SEQ 34 


TEC11-A DIAGNOSTIC 
$..IAyY 


J3 
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001204 
011342 


007026 
007202 
007026 007146 


-SBTTL $..IAA 


t¢ 
3 SUBROUTINE : $..IAA 


: 
sLEGAL INPUT IS “ABO” 


INPUT: NONE 

OUTPUT: IF IN THE PROGRM THE LABEL Sw IS USED, 
THE STACK WILL BE INITIALIZED AND A JUMP TO 
THIS LABEL IN THE DEVICE TEST PROGRAM IS PERFORMED. 
IF THIS LABEL IS NOT USED, THE STACK IS INITIALIZED 
AND A JUMP TO THE BEGIN OF THE DEVICE-TEST PROGRAM 


IS PERFORMED. 
MZOO1 
THE MACRO “PSET“ALLOWS TO RUN THE CDM EITHER ON POP 
OR ON LSI. 
s AUTHOR mM. ZILLER, CSS/DP MUNICH OCT. 1976 
g2° 
s.PSECT CSSMON 
.ENABL LSB 
$.. IAA: RESET sSTOP ANY ACTIONS 
SET6 © B@TKS sSWITCH ON TTY-INT. 
MOV @START, SP sINITIALIZE STACK 
.IF OF $..SPC 
HOV 3. .SPC,-(SP)  sSET THE LABEL “"$..SPC”" FOR DESTINATION 


1$: 


. $. .SPC 
MOV @COM..E,-(SP)  ;SET END OF MONITOR FOR DESTINATION 


PSET @0 ;CLEAR PS 3MZO01 

MOV OKBBUFF ,RO sRESET BUFFERS 

CLR (RO)>+ 3 * 

CMP RO, OPROMES : 9 

BNE 1$ 3 e 

MOV OKBBUFF ,KBBPNT ;REBUILD BEGIN ADDRESS 
RETURN sGOTO POINT OF CONTINUATION 


-OSABL LSB 


IEC11-A OIAGNOSTIC 
$.. IAA 


K3 
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;.PSECT CSSMON 


.SBTTL $.. IAD 
° 
s SUBROUTINE : $..IAD 
geseseceases sesesese 
3 

MZ001 


TO COMPLETE. 


WAYS FOR RETURN: 


SEQ 36 


MODIFICATION TO ALLOW THE <CR> AFTER INPUT 


THIS SUBROUTINE IS ENTERED WHEN A DUMP-REQUEST IS ANALYZED. 
DEPENDING ON HOW THE REQUEST IS TERMINATED, 


THERE ARE TWO 


A) WHEN TERMINATED BY <CR> THE CONTENT OF A LOCATION IS 
PRINTED AND THE RETURN IS PERFORMED 
8) WHEN INPUT IS TERMINATED BY A ““/""“THE MONITOR WAITS 
FOR INPUT AND LOADS THIS INPUT INTO THE EXAMINED LOCATION. 
3 INPUT (SP) *RETURN ADDRESS 
sOUTPUT ; MODIFIED LOCATION IF REQUESTED 
3 
3; AUTHOR M. ZILLER, SS/DP MUNICH OCTOBER 1976 
3 
t- 
;.PSECT CSSMON 
-ENABL LSB 
$..IAD: INC R1 sPOINT TO “Mm” 
000115 CMPB CR1)+,0'M 3IS IT A “mM” 
BNE 77$ 3NO IF NE 
000120 CMPB CR1)+,0'P 3IS IT A “P” 
BNE 77$ sNO IF NE 
000057 CMPB CR1)+,0' 7 sIS ITA "7" 
BNE 77$ 3NO IF NE 
004304 CALL $..NOR sRETRIEFE INPUT 
BCS 77$ :IS CS, INPUT FORMAT ERROR 
177564 11%: TSTsB @eTPS 3IS THE <CR> FINISHED ? ;MZOO1 
BPL 11$ Fy sMZOO1 
000012 177566 MOV #12,80TPB sPRINT A <LF 
177564 12%: TST8 BeTPS sDONE ? 
BPL 12s sWAIT FOR COMLETION 
OuUMP OcT,CRO) ;AND PRINT 
BR IAD. .E 3GO TO END 
006262 778: CALL TS ;WRITE SYNTAX ERROR MESSAGE 


IAD..E: RETURN 
a 


sRETURN TO MAIN 


L3 
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807 3° 
04 ; THIS IS THE ROUTINE GET THE OCTAL VALUE OF THE ADDRESS 
; 
810 ‘ke 
811 004304 005000 $..NOR: CLR RO sCLEAR STORAGE OF NUMBER 
812 004306 012702 000006 MOV 06 ,R2 sCLEAR DIGIT COUNTER 
613 004312 121127 000015 1$: CmMPB @R1,015 3IS IT A TERMINATOR ? 
814 004316 001425 BEQ NOR. .E sIF EQ, YES 
815 004320 121127 000057 CMPB OR1,0'/ 3 
816 004324 001422 BEQ NOR. .E 8 
817 004326 142711 000060 BICB 060,8R1 sBUILD REAL BINARY 
818 004332 100421 BMI NOR .ER 3IF MI, IT WAS LOWER THAN 60 
819 004334 121127 000007 CMPB @R1,07 3IS IT REAL OCTAL ? 
820 004340 101016 BHI NOR .ER sIF HI,NO REAL OCTAL 
821 004342 006300 ASL RO sMULTIPLY 
822 004344 006300 ASL RO sWITH 10 IN 
823 004346 006300 ASL RO sOCTAL 
824 004350 152100 BISB CR1)+,RO 3SET THE TRUE BITS 
825 004352 005302 DEC Re sCOUNT DIGITS BUILT 
826 004354 001356 BNE 1$ sALL DONE? 
827 004356 121127 000015 CMPB 8R1,015 3IS THE LAST + 1 BYTE A TERMINATOR? 
828 004362 001403 BEQ NOR, .E sIF YES THEN SYNTAX OK 
829 004364 121127 000057 CMPB @R1,0'7 3; TERMINATOR IN SET COMMAND? 
830 004370 001002 BNE NOR .ER ;IF NOT THEN SYNTAX ERROR 
831 004372 000241 NOR. .E: CLC s INDICATE SUCCESSFUL OPERATION 
832 004374 000207 RETURN 3 
833 004376 000261 NOR.ER: SEC s INDICATE FAILURE 
834 004400 000207 RETURN 3 
835 : 
836 3° 
837 3 SUBROUTINE: $..IAS 
838 pessssesenes seeuas 
Ss : 
3 
eas ;THIS SUBROUTINE IS ENTERED IF THE INPUT ANALYZER DETECTS A SET-COMMAND 
8 
843 3 INPUT: _? a RETURN ADORESS 
Zea : BEGIN OF INPUT STRING 
3 
yoy ; OUTPUT: * MODIFIED LOCATION 
3 
848 t- 
849 004402 005201 $..IAS: INC R1 sPOINT TO "E” 
850 004404 122127 000105 CMPB (R1)+,0'E sCORRECT 
851 004410 001024 BNE 76$ 3sNO IF NE 
852 004412 122127 000124 CMPB (R1)+,e'T > ll SYNTAX ? 
853 004416 001021 BNE 76$ 3sNO IF 
854 004420 122127 000057 CMPB (R1)+,a'7 CORRECT SYNTAX ? 
855 004424 001016 BNE 76$ 3NO IF NE 
856 004426 004737 004304 CALL $..NOR ;BUILD ADDRESS TO MODIFY 
857 004432 103413 bcs 76$ 3 IF 5 FORMAT ERROR 
858 004434 010037 004470 MOV RO,2$ 3; SAV 
859 004440 122127 000057 CMPB CR1)+,@'7 + CORRECT SYNTAX ? 
860 004444 001006 BNE 76$ sNO IF NE 
861 004446 004737 004304 CALL $..NOR ;BUILD DATA TO INSERT 
862 004452 103403 BCS 76$ 3IF CS, FORMAT ERROR 


863 004454 010077 000010 MOV RO,a2$ sAND LOAD 


FECHA5* OIAGNOSTIC 


864 004460 000402 
865 004462 004737 
866 004466 000207 
867 004470 000000 
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BR IAS. .E 
006262 76%: CALL $..STX 
TAS. .E: RETURN 


M3 


sGO_TO END 

sWRITE ERROR MESSAGE 

sRE TURN 

sSORAGE FOR ADDRESS TO MODIFY 


SEQ 38 


TEC11-A OIAGNOSTIC 
$..IAD 


NS 
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007160 


000003 
000075 


000057 


000116 


000123 
000103 
000110 
000120 


-SBTTL $..IAE 
3¢ 
s SUBROUTINE : $..IAE 


; THIS ROUTINE ro THE CORRECT SYNTAX OF 
sAN“ERR” - INPUT S TRING AND PROCESSES THE 
sREQUESTED ‘SWITCHREGISTER-OPTIONS’. 


i 
sLEGAL SWITCH OPTIONS ARE: 


333 BRANCH IF ES 
sa2tS I AR’ CF 
BNE r7$ s33I® NO: SiNTAX ERROR 


3 

; 7HT 2 HALT AFTER ERROR (DEFAULT) 

; /NH = NO HALT AFTER ERROR 

3 7PR 5 ORINT ERROR MESSAGE (DEFAULT) 

3 /NP 2 INHIBIT ERROR PRINTOUT 

8 /CcT a COUNT ERROR 

3 /NC . NO ERROR COUNTING (DEFAULT) 

3 /SC 2 SCOPE LOOP ON THIS ERROR 

3 /NS 2 NO SCOPE LOOP (DEFAULT) 

3 /CONT 2 IMMEDIATE CONTINUE SWITCH 

3 

3 

3 INPUT: R1 *START ADOR.OF TEXT STRING 

;OUTPUT: BIT-SETUP IN SOF TWARE -SWITCH-REGISTER 

3 

s AUTHOR: BERT HUBER, CSS/DP MUNICH 28-JULY-76 

= 
3;.PSECT che 

$..IAE: MOV SP ,R2 s33FLAG FOR VERY FIRST CHARACTER 
MOV OPSOSWR ,R3 333;GET ‘SWR” ADDRESS 
cLR R4 333USE AS ‘CHARACTER 1° 
ADD @3,R1 333SKIP IDENTIFYER 
CMPB (R1)+,0' = 3:;CORRECT SYNTAX? 
BNE 77$ 33:3BRANCH IF NOT 

18: CMPB (R1)+,e' 7 333IS NEXT CHAR. A ‘7’ 
BEQ es s33IF EQ, YES 
TsT R2 :33VERY FIRST? 
BNE 77$ s33IF YES: SYNTAX ERROR 
BR 11$ 33::ASSUME END OF STRING 

2s: CLR R2 3:3NO LONGER VERY FIRST 
INC R4 333;SET FOR ‘'Cl1‘ -FLAG 
CmMPB (R1),e°N 333IS IT THE '/N”-OPTION? 
BNE 3$ 3:;8RANCH IF NOT 
INC R1 33sADVANCE TO NEXT CHARACTER 
CLR Ra 333sRESET ‘Cl’ -FLAG 

38: CMPB (R1),@ S s33IS IT A ‘S'? 
BEG S$ 3:3;B8RANCH IF YES 
CMPB (R1),e°C saatS 37 8 ‘E* 2 
BEG 7$ 833 BRANCH iF vES 
CmMPB (R1),a s33sIS IT A'm 

is 


rc the” 


927 
928 


OTAGNOSTIC 


004576 


B4 
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040000 


000122 


000117 
000116 
000124 
007160 


308: INC 
BR 
4%: INC 


a32R3 
“~ OO 


S$: 


= 
al 
ie) 


6%: 


39% 


78; 


za8eoegeaeg 


708; 
BIC 
8%: INC 


BR 
93: TsT 


108: INC 


118: 


778; CALL 
IAF..E: RETURN 


Ra 
at 
@BIT14,(R3) 
R1 
a 

Ri 
Sa o'r 
aatri4,cn3) 
R4 
6% 
oBIT15,(R3) 
308 


Ri 
(R1i)- a Cc 
778 


we 
1(R1),@°0 
708 

«taal N 
BR), @°1 
eotri1, PSOSWR 
#5,R1 

11¢ 

Ra 

6s 
@BIT13,(R3) 
308 


R1 
(R1)+,e'T 
77% 
@BIT15,(R3) 
is 

Ra 

10% 
@81T12,(R3) 
= 


Ri 

oe re eT 
eetri2, (R3) 
1s 


-OSABL LSB 


peeks It a. o. ef 
ss8RANCH TI 
1n1SET SR - bir FoR ne 
st sADOVANCE TO NEXT CHARACTER 
so sCHECK FOR a SWITCH 


sesIF NO: SYSNTAX ERROR 
3383SET '/PR' -OPTION 

23 3CHECK NEXT SWITCH 
sasIS IT ‘S77’ ? 
33s8RANCH IF YES 

s33SETUP FOR */NS’ OPTION 
aeaTRY NEXT 

sesNEXT CHARACTER 

sesIS IT A'/SC’ ? 

sasIF NO: SYNTAX ERROR 
33sSETUP FOR ‘/SC’ -OPTION 
s3sCHECK NEXT SWITCH 

32 3CHECK FOR ‘/CONT' 
sssIF NE , OTHER 

33sCHECK FOR ;/CONT’ 
s3ssIF NO: SYNTAX ERROR 
333CHECK FOR ‘/CONT' 

sas IF NO: SYSNTAX ERROR 
333SET ‘IMMEDIATE CONTINUE 
assADJUST POINTER 

33sEND THIS SCAN 

s3sIS IT A */CT' ? 


YES 
333SET FOR */NC’ -OPTION 
ses TRY NEXT SWITCH 
3ssADVANCE TO NEXT CHARACTER 
ssaIS IT A‘ /CT’ -OPTION ? 
sssIF NO: SYNTAX ERROR 
333SETUP FOR '/CT' OPTION 
33sCHECK NEXT SWITCH 
sasIlS IT ‘/HT’ ? 
333QRANCH IF YES 
33sSETUP FOR *' /NP’ -OPTION 
sss TRY NEXT SWITCH 
sssADVANCE TO NEXT CHARACTER 
aasIS IT A ‘/HT’ ? 
s33IF NO: SYNTAX ERROR 
333SETUP FOR ' /HT’ -OPTION 
sss TRY NEXT SWITCH 
333WAS LAST BYTE A <CR>? 
333BRANCH IF YES 
333SYNTAX ERROR 
sssRETURN TO CALLER 


SEQ 40 


C4 
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979 -SBTTL $..RED 
980 ° 
981 3 SUBROUT INE $. .RED 
982 peteeecsese eecees 
983 : 
984 3 
985 3eeee ABOO 
986 5 THE CARRY BIT IS SET IF A ZERO OCTAL INPUT CONLY CR,NO DATA) 
987 3 HAPPENS 
3 3 
990 i THIS SUBROUTINE HANDLES ALL es OF SPECTAL INPUT REQUESTS 
991 sSETUP BY THE PROGRAMMER THROUGH A‘ READ ‘ MACRO. 
poe — INPUT TYPES THAT CAN BE HANDLED ARE: 
pan rBINARY FORMAT (EX: 1001101101010001 ) 
We P INPUT CAN BE UP TO 16-DIGITS OF THE FORM O OR 1. 
997 3LESS THAN 16 DIGIT INPUT IS FILLED UWITH LEADING ZEROES 
998 s INPUT IS RETURNED IN RO. 
Boe ‘= PREVIOUS CONTEND OF RO WILL BE OVERWRITTEN. 
pee] FOCTAL FORMAT (EX:176523) 
1003 SINPUT CAN BE UP TO 6 DIGITS OF THE FORM 0-7 
1004 sIN CASE OF A 6-DIGIT-WIDE INPUT, THE LEF THOST( HIGH ORDER ) 
1005 SOIGIT IS TRUCTATED TO THE RIGHTMOST (LOW ORDER BIT 
1006 sIN CASE OF LESS THAN 6 DIGITS INPUT, LEADING ZERO DIGITS 
1007 sARE INSERTED. 
1008 3THE RESULT IS RETURNED IN RO,HEREBY OVERWRITING 
a. sTHE PREVIOUS CONTENT OF RO. 
’ 
ety — FORMAT (EX: 96003) 
1013 } INPUT CAN BE UP TO 5 DIGITS OF THE FORM 0-9. 
1014 3sLESS THEN FIVE DIGITS INPUT ARE FILLED UP WITH 
1015 sLEADING ZEROE DIGITS. 
1016 sMAXIMUM NUMBER ALLOWED IS 32656. 
1017 sINPUT IS RETURNED IN RO, HEREBY OVERWRITING THE 
red sPREVIOUS CONTENT OF RO. 
3 
1020 sASCI FORMAT (EX: B6TSEL ) 
1021 aacesineenewraenaneneces 4% 
1022 3 
1023 s INPUT CAN BE ANY LEGAL ASCII CHARACTER. 
1024 sIF INPUT INTO A BUFFER IS REQUESTED, UP TO 80 
1025 sCHARACTERS CAN BE INPUT. 
1026 sIF INPUT RETURN IN RO IS REQUESTED,ONLY THE FIRST 
oH eee WILL BE RETURNED IN THE LOW ORDER BYTE 
i ° 
1029 30L0 CONTEND OF RO IS OVERWRITTEN IN THIS CASE. 
1030 sIF THE ONLY INPUT IS <CR>, ZERO WILL BE RETURNED IN RO 
son8 3AS WELL AS IN THE FIRST BYTE OF THE SPECIFIED BUFFER. 
F 
fore ;AUTHOR: BERT HUBER, CSS/DP MUNICH 29 - JUN - 76 


34 3 - 
1035 005020 004737 006136 $..REO: CALL $. .PRO sPRINT PROMPT STRING 


D4 
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$.. 

1036 005024 010637 007156 MOV SP, INPREQ sSET SPECIAL REQUST FLAG 

1037 005030 026627 000002 000004 cmp 2(SP), 04 sDETECT SPECIAL ASCII INPUT RUNNING 

1038 005036 003402 BLE 1008 sNO ASCII INPUT 

1039 005040 010637 007174 MOV SP, $. SASF sSET SPECIAL ASCII INPUT FLAG 

1040 005044 1008: 

1041 005044 005737 007150 18: TsT INFLAG sWAIT FOR INPUT COMPLETE 

1042 005050 001375 BNE is i 

1043 005052 PUSH R1,R2,R3,R4,R5 SAVE REGS 

1044 005064 012701 007026 MOV exBBUFF ,R1 1GET INPUTPIONTER 

1045 005070 016602 000014 MOV 14(SP), R2 sGET INPUTMOFE INDICATOR 

1046 005074 000172 005100 JMP @28(R2) sSELECT REQ. INPUT 

1047 005100 005112 2s: $..0CT sHANDLE OCTAL INPUT 

1048 005102 005270 $..0€C sMANDLE DECiMAL INPUT 

1049 005104 005504 $..BIN sHANOLE BINARY INPUT 

1050 005106 005444 $. .BUF sHANDLE ASCII INPUT INTO BUFFER 

1051 005110 005464 $..ASC sHANOLE ASCII INPUT INTO BUFFER 

1052 005112 005000 $..0CT: CLR RO sCLEAR INPUT POINTER 

1053 005114 005037 005244 CLR 6$ sRESET COUNTER 

1054 005120 121127 000015 CMPB 8R1,015 sZERO INPUT ? 

1055 005124 001014 BNE 3$ sIF NE, SKIP 

1056 005126 POP RS.R4,R3,R2,R1  4eeeABOO;: RESTORE GEN. REGISTERS 

1057 005140 011666 000002 MOV (SP),2CSP) 3¢@eAB00: REAJUST RETURN ADDRESS 

1058 005144 005726 TsT (SP )}- 3¢@eAB00: 

1059 005146 005037 007156 CLR INPREQ 34@eAB00;: RESET SPECIAL REQUEST COUNTER 

1060 005152 000261 SEC 3#@eABOO: SET CARRY AS ZERO INPUT INDICATOR 

1061 005154 000207 RE TURN 3¢¢eABOO: AND GO BACK TO CALLER 

1062 005156 006300 38: ASL RO sADJUST INPUT CHARACTER 

1063 005160 006300 ASL RO i = 

1064 005162 006300 ASL RO s "i 

1065 005164 023727 005244 000006 CMP 6$,06 sALL INPUT HANDLED ? 

1066 005172 001406 BEQ 4% sMORE THAN 6 DIGITS INPUT 

1067 005174 121127 000060 CMPB GR1, 060 sLEGAL OCTAL DIGIT ? 

1068 005200 103403 BLO 4% sIF LO, NO 

1069 005202 121127 000067 CMPB R11, 067 sLEGAL OCTAL DIGIT ? 

1070 005206 101412 BLOS S$ sIF LOS, YES 

1071 005210 4%: WRITE MILOCT sILLEGAL OCTAL INPUT 

1072 005220 PoP RS.R4,R3,R2,R1 sRESTORE REGS 

1073 005232 000672 BR $. .RED sRESTART INPUT SEQUENCE 

1074 005234 142711 000060 S$: BICcB #60 ,@R1 sBUILO BINARY 

1075 005240 152100 BISB (R1)+,RO s INSERT INTO BUFFER 

1076 005242 005227 INC (PC)> sCOUNT INPUTS HANDLED 

1077 005244 000000 6%: -WORD 0O sOIGIT COUNTER 

1078 005246 121127 000015 CMPB @R1,015 sENO OF INPUT DETECTED? 

1079 005252 001341 BNE 3$ sIF NE , NO 

1080 005254 023727 005244 000001 CMP 6$,@1 owe CARRY IF ONLY CR WAS THE INPUT 

1081 005262 001001 BNE 7$ 

10862 005264 000261 SEC iSET CARRY 

1083 005266 78: 

1084 005266 000557 AR RED. .E sENO OF INPUT 

1085 005270 005000 $..0&C: CLR RO sCLEAR TRANSFER BUFFER 

1086 005272 005004 CLR R4 sRESET COUNTER 

1087 005274 122721 000015 1$: CMPB @15,(R1)> sEND OF INPUT ? 

1088 005300 001402 BEQ 2s sIF EQ, YES 

1089 005302 005204 INC R4 sOIGIT COUNTER 

1090 005304 000773 BR 1$ sCEEP COUNTING 

1091 005306 012701 007026 2s: MOV OKBBUFF ,R1 sSET INPUT BIFFER POINTER 


1092 005312 020427 000005 CMP R4,05 sMORE THAN 5 DIGITS ? 


E4 
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1093 005316 101412 BLOS aa sIF LOS, NO 
1094 005320 33: WRITE MILDEC sILLEGAL DECIMAL INPUT 
1095 005350 PoP RS,.R4,R3,R2,R1 REST. REGS 
1096 005342 000626 BR $. .RED sRESTART INPUT 
1097 005344 005704 4$: TsT R4 sZERO DIGIT COUNT ? 
1098 005346 001527 BEG RED. .E sIF EQ, YES 
1099 005350 006504 ASL R4 sBUILO TABLE OFFSET 
1100 005352 016402 005360 MOV 5$(R4),R2 sSETUP CORRECT PARAMETER 
1101 005356 000406 BR 6% sSKIP TABLE 
1102 005360 000000 000001 000012 5%: -WORD 0,1,10.,100.,1000. ,10000. 
005366 000144 001750 023420 
1103 005374 006204 6$: ASR R4 sREBUILD R4 CONTENT 
1104 005376 005005 CLR R3 sRESET SAVE BUFFER 
1105 005400 1121035 MOvVB C(R1)+,R3 1GET FIRST OIGIT 
1106 005402 020327 000060 CMP R3, 060 sCHECK LOWER DIGIT RANGE 
1107 005406 103744 BLO 3$ sIF LO, ERROR 
1108 005410 020327 000071 CMP R3, 071 sCHECK UPPER DIGIT RANGE 
1109 005414 1015341 BHI 3$ VIF HI, ERROR 
1110 005416 042703 177760 BIC @177760,R3 sCONVERT TO OCTAL 
1111 005422 005703 TsT R3 sZERO DIGIT? 
1112 005424 001405 BEQ 13% sIF EQ, YES 
1113 005426 000241 78: cLc sRESET CARRY 
1114 005430 060200 ADO R2,RO sBUILD OCTAL NUMBER 
1115 005432 103732 ecs 3$ sERROR IF OVERFLOW 
1116 005434 005303 DEC R3 sALL DONE? 
1117 005436 0013735 BNE 7$ IF NE, NO 
1118 005440 005304 13$: DEC R4 sNEXT DIGIT 
1119 005442 000740 BR 4s ; 
1120 005444 122711 000015 $..BUF;: CMPB #15,(R1) sZERO DIGIT ? 
1121 005450 001001 BNE 1$ sSKIP IF NOT 
1122 005452 005011 CLR (R1) sRESET FIRST INPUT WORD 
1123 005454 010100 1$; MOV R1,RO s TRANSFER BUFFER ADDRESS 
1124 005456 005037 007174 CLR $. SASF sCLEAR SPECIAL ASCII FLAG 
1125 005462 000461 BR Rtv. .E _ OF INPUT 
1126 005464 005000 $..ASC: CLR RO 
1127 005466 005037 007174 CLR $. $ASF ;CLEAR SPECIAL ASCII INPUT FLAG 
1126 005472 122711 000015 CMPB #15,8R1 sZERO INPUT 
1129 005476 001453 BEQ RED. .E sIF EQ, YES 
1130 005500 111100 MOVvVB @R1,RO ;GET FIRST BYTE 
1131 005502 000451 BR RED. .E sEND OF INPUT 
1132 005504 005000 $..BIN: CLR RO 3 
1133 005506 005037 005624 CLR 6$ sRESET COUNTER 
1134 005512 122711 000015 CMPB #15,8R1 sZERO INPUT? 
1135 005516 001443 BEQ RED. .E sEND OF INPUT 
1136 005520 022737 000021 005624 1%: CMP 17. ,6$ sTOO MANY DIGITS? 
1137 005526 0010153 BNE es sIF NE, NO 
1138 005530 S$: WRITE MILBIN sILLEGAL INPUT MESSAGE 
1139 005540 POP RS,.R4,R3,R2,R1 ;REST. REGS 
1140 005552 000137 005020 JMP $..RED sREENTER 
1141 005556 121127 000060 2s: CMPB @R1,060 ;ZERO DIGIT ? 
1142 005562 001407 BEQ 3$ sBRANCH IF YES 
1143 005564 121127 000061 CMPB @R1, 061 sONE DIGIT ? 
1144 005570 001011 BNE 4$ sBRANCH IF NOT 
1145 005572 006300 ASL RO sADJUST TRANSFER BUFFER 
1146 005574 052700 000001 BIS oBITO,RO s INSERT INTO TRANSFER BUFFER 
1147 005600 000401 BR 7$ 


s 
1148 005602 006300 3$; ASL RO sADJUST TRANSFER BUFFER 


FECA SA OIAGNOSTIC 
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7$: INC 
005624 ~ 
000015 4$: CMPB 
BNE 
BR 
6%: . WORD 
RED. .E: POP 
000002 MOV 
TsT 
007156 CLR 
RETURN 


eeu TO NEXT INPUT 
sCOUNT INPUTS 


ton ILLEGAL " chanacten 

} COUNTER 

sREST. REGS 

‘wane. STACK RETURN ADDRESS 


;RESET SPECIAL REQUEST POINTER 
sRETURN TO CALLER 


SEQ 44 


TEC11-A DIAGNOSTIC 
$..WRT 


G4 
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007152 
007150 


007152 
000002 


005736 
000340 


000100 
007152 
000023 
000021 


177714 
177704 


. SBTTL 


3 
3 SUBROUTINE : 
gteeesssesas 


‘ 
;THIS ROUTINE IS CALLED TO SETTUP A MESSAGE PRINTOUT ON CONSOLE 
sALL PRINTING IS CONTROLLED BY INTERRUPT EXEPT <CR>, <LF>. 


; 
s INPUT: 
; 


8 
sOUTPUT: 
F 
sAUTHOR: 


’ 
sMODIFIED BY: 


$..WRT 
$. ~WRT 


eacsP) = 
(SP) e 


ADDRESS OF MESSAGE TEXT 
CALLER 


Pc 


MESSAGE ON TERMINAI 


BERT HUBER CSS/DP MUNICH 
JOHN LEVESQUE 


Css ISG 


28 - JUN- 76 
23-JAN-83 


MODIFICATION REQUIRED TO HANDLE XON AND XOFF 


023, Q0TKB 
3% 


20% 
021,280TKB 
i$ 


#15, 80TPB 


#100, @¢TPS 


8s. .MSP,aeTPB 


$..MSP 


;OUTPUT RUNNING ? 


RUNN 

3IF NE, YES - WAIT 
3SET OUTPUTFLAG 

sGET MESSAGE POINTER 
sMESSAGE POINTER 
sSETUP VECTOR 
833 23 
sUPDATE STACK 
sENABLE INTERRUPTS 
sOUTPUT RUNNING? 
3IF NE ,YES->wWAIT 
sRETURN TO CALLER 
333 CHECK FOR XOFF 
333 XOFF CONDITION WAIT TO CLEAR 
333 NO XOFF THEN CONTINUE 
333 CHECK FOR XON 
333 NO XON GO WAIT FOR IT 


:END OF MESSAGE ? 
s33IF EC. YES 

333<CR>,<LF>? 
sos 


F NE, 
333:DISABLE INTERRUPTS 
333SEND <CR> 
sssWAIT FOR DONE 


333 

333sPOINT TO NEXT CHARACTER 
333SEND <LF> 

333RE-ENABLE INTERRUPT 
333RETURN TO MAIN PROGRAM 
333SEND NEXT CHARACTER 
s3sPOINT TO NEXT 

333RETURN TO CALLER 


3#eGSO0O00Les 
3#eGS0001 se 


SEQ 45 


FECA OIAGNOSTIC 


H4 
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000100 177564 WRT..E: BIC #100, @eTPS 
007152 CLR OUTFLG 


007170 Tst SPEFLG 
BEQ 4% 
007170 CLR SPEFLG 
007156 CLR INPREQ 
003360 CALL $..RSV 
003520 JMP $$SPE 
4%: RTI 


ss sO0ISABLE qurevt INTERRUPT 
33 sRESET TPUT FLAG 

sssTHIS FLAG IS SET ONLY 

33 3WHEN DURING A PRINTOUT 

333 THE <CNTRL C> COMMAND WAS 
sssNECCESARY TO INTERRUPT THE 

33 3RUNNING PRINTOUT 

ss3sNOW NEW SPEC. INPUT IS PROCESSED 
333RETURN TO MAIN PROGRAM 


SEQ 46 


4 
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1230 .SBTTL $..KBO 
1231 se 
1232 3 SUBROUTINE : $..KBO 
1233 jtseeeceseas seeeses 
1234 ry 
ites sKEYBOARD ECHO ROUTINE FOR TEMINAL INPUT 
$ 
1237 3 INPUT: (SP) = CALLER PC 
ites : RO = PATTERN TO ECHO 
3 
otf ;OUTPUT: PRINT PATTERN TO TERMINAL 
3 
anes ; AUTHOR: BERT HUBER CSS/DP MUNICH 28 - JUN - 76 
: — 
1244 3.PSECT CSSMON 
1245 -ENABL LSB 
1246 006122 105737 177564 $..KBO: TSTB QeTPS sECHO RUNNING ? 
1247 006126 100375 BPL $..KBO sIF PL, WAIT 
1248 006130 010037 177566 MOV RO, BeTPB sECHO CHARACTER 
1249 006134 000207 RETURN sRETURN TO CALLER 


-DSABL LSB 


FEC} A OITAGNOSTIC 


005037 


005737 
001375 


010637 
000207 


J4 
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007150 


007152 


007150 


-SBTTL $..PRO 
3° 
s SUBROUTINE : $. .PRO 


; THIS ROUTINE IS CALLED TO PRINT THE DEFAULT KEYBOARD 
“Spat STRING ON THE TERMINAL, AND TO SET THE INPUT FLAG. 


P INPUT: (SP) 2 CALLER PC 

F 

a PROMPT STING ON TERMINAL 

| AUTHOR: BERT HUBER CSS/DP MUNICH 28 - JUN- 76 

8 MZOO1 

; THE USE OF THIS MACRO’S ALLOWS TO USE ONE VERSION OF COM 
3 ON LSI AND POP. 

3 

:- 


-IDENT /V1.0/ 
3.PSECT te 
. ENABL 


$..PRO: CLR TNFLAG 33 RESET aote FLAG 
PREAD STATUS ;SAVE STATUS ee 


PSET 60 ;CLEAR PS 001 
WRITE #PROMES 333sWRITE * PROMPT STRING 
1$: on + ioe sWAIT FOR OUTPUT COMPLETE 
$ ry 
PSET STATUS sRELOAD ora 3MZO01 
MOV SP, INFLAG 3SET INPUT FLAG 
RETURN ;RETURN to' CALLING PROGRAM 


-OSABL LSB 


SEQ 46 


K4 


FEC} 4 OA OIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 25 SEQ 49 
1285 .SBTTL $..STX 
1286 2° 
1287 3: SUBROUTINE: $..STX 
1288 geececeseses eesen¢ 
1289 3 
sate ;THIS ROUTINE PRINTS THE ‘SYNTAX ERROR’ ‘MESSAGE 
3 
pe | s INPUTS: (SP)= CALLER PC 
3 
izes ;OUTPUT: MESSAGE ON TERMINAL 
5 3 
By sAUTHOR: BERT HUBER CSS/DP MUNICH 28 - JUN- 76 
3 
1298 3 
oo 3 MZ001 
3 seseaa 
1301 3 THE USE OF THIS MACRO’S ALLOWS TO RUN ONE VERSION OF COM 
1302 F ON LSI AND POP. 
1303 PF 
1304 3: 
1305 3.PSECT CSSMON 
1306 -ENABL LSB 
1307 006262 000240 $..STX: NOP 33 sOUMMY 
1308 006264 PREAD STATUS ;SAVE STATUS 3MZ001 
1309 006310 PSET 00 sCLEAR PS 3MZO01 
1310 006334 WRITE MSYERR ;WRITE SYNTAX ERROR MESSAGE 
1311 006344 005737 007152 1$: TST OUTFLG ;WAIT FOR OUTPUT COMPLETE 
1312 006350 001375 BNE 1% 3 
1313 006352 PSET STATUS sRELOAD PS 34Z001 
1314 006376 000207 RE TURN 333:RETURN TO CALLER 


1315 -OSABL LSB 


L4 


FECAASA DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 24 SEQ 50 
1317 .SBTTL $..OMP 
1318 3° 
th 3; SUBROUTINE: $..OMP 
geeseeenesce sesecea 
1321 
1322 : THIS ROUTINE PRINTS ON THE TERMINAL PRINTER NUMBERS 
1323 :IN BINARY, DECIMAL AND OCTAL FORMAT, DEPENDING ON THE 
1324 3 TYPE-ARGUMENT OF THE CALLING DUMP MACRO. 
1325 ry THIS MONITOR WAS MODIFIED IN JANUARY 1983 TO INCLUDE XON AND XOFF 
1326 TERMINAL FEATURES. ALSO INCLUDED SOME MACRO DIRECTIVES TO ALLOW 


ASSEMBLY ON VAX, 


€C11-A DIAGNOSTIC 
3. OP 


M4 
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3 INPUT: 
F 
3 
3 
3 
3 
sOUTPUT: 
3 
3; AUTHOR: 
rf] — 
3;.PSECT 
. ENABL 
$..O0MP: PUSH 
000004 MOV 
007152 TST 
006420 JMP 
DO..TYP: $..00C 
$..00C 
$..08N 
000006 $..00C: MOV 
000010 MOV 
000060 MOV 
ASL 
Bcc 
INC 
006122 18: CALL 
000002 DEC 
BEQ 
000060 MOV 
ASL 
Bcc 
000004 ADD 
2s: ASL 
BCC 
CMPB 
38: ASL 
Bcc 
INC 
BR 
4$: CMP 
BR 
Z .OSABL 
ENABL 
000005 $..00C: MOV 
000010 MOV 
MOV 
006122 CALL 
1$ MOV 
000044 2s: CMP 
BHI 
INC 
000034 SUB 
BR 
006122 3%: CALL 
000002 006614 ADD 


4(sP) = 
2(SP) 


«TYPE OF 


VALUE TO DUMP 

OuUMP : O = OCTAL 
2 = DECIMAL 
4 = BINARY 


(SP) *RETURN PC 


DUMP ON TERMINAL 
BERT HUBER CSS/DP MUNICH 


CSSMON 
LSB 

RO 
4(SP),RO 
OUTFLG 


.-4 
@D. . TYPCRO) 


"ae 
é 


VWAse ove De sor 


3 


rPannwe 
-E2°¢ 


RO 


©'0,RO- 
$..KBO 
@'0,RO 
@sPOINT, (SP) 
3% 
RO 
@sPOINT,(SP) 
2s 


$ . .KBO 
#2, $POINT 


26 - JUN- 76 


sSAVE RO 
3GET TYPE ARGUMENT 
a. ws = ? 
‘ 
sSELECT FUNCTION ROUT INE 


sSETUP DIGIT COUNT 
sGET VALUE TO DUMP 
sSETUP BASIC ASCII VALUE 
sBUILD FIRST DIGIT 

sIF CC, OIGIT IS A ‘0’ 

; OTHERWISE OIGIT IS A ? 
sOUMP DIGIT 

sCOUNT DIGITS DUMPED 

sIF EQ, ALL DONE 

sSETUP NEXT DIGIT BASE 
sBUILD NEXT DIGIT 

sIF CC, DIGIT INCLUDES ?777? 
sOIGIT = BASE+4 

sANALYZE NEXT BIT 

sIF oe DIGIT INCLUDES ???? 
sOIGIT = DIGIT + 2 

sANALIZE LAST BIT OF DIGIT 
sIF CC, OIGIT MUST BE EVEN 
sOTHERWISE DIGIT IS ODD 


3GO AND DUMP 
sREADJUST STACK 
sEND OF DUMP 


sSETUP A DIGIT COUNT 
sGET VALUE TO DUMP 


) 
“;BUILD LEADING ZERO 
sAND PRINT 
3 SETUP BASIC ASCII VALUE 


sCMP VALUE WITH ACT. DEC. DIGIT 
sVALUE IS SMALLER 

sCOUNT NUMBER OF DIVISIONS 
sOIVIDE BY ACT. DEC. DIGIT 

DO NEXT 


3 x 
sPRINT THIS DEC. DIGIT 
sPOINT TO NEXT DEC. VALUE 


SEQ Sl 


TEC11-A OIAGNOSTIC 
$. .OMP 


N4 
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000002 
006616 006614 


000006 
177772 


$SPOINT: $TABLE 
STABLE: 10000 


i$: CLC 


2(SP) 
$ 


1 
@S$TABLE , $POINT 
(SP)+,CSP)+ 
OMP. .E 


LSB 

LSB 

#16. ,4(SP) 
6( SP) 


sCOUNT NUMBER OF CONF. DIGITS 


sALL 

sREBUILD FOR NEXT USER 
sCORRECT STACK FOR RETURN 
sEND OF DEC. DUMP 


a PRINT POINTER 


sRESET CARR 

+ FIRST CH CHARACTER 
’ 

;SETUP A wcten CHARACTER 


} DUMP CHAR 

}COUNT CHARACTERS DUMPED 
sIF NE, CONTINUE 

sEND OF DUMP 

;SETUP A” 1 “ CHARACTER 
;OUMP IT 

sRESTORE RO 


sREADJUST STACK 
sRETURN TO CALLER 


SEQ S2 





BS 
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rte! -SBTTL $..ADP 
te 
1420 3 THIS SUBROUTINE IS USED TO PRINT OUT ADDITIONAL INFORMATION 
1421 3 ABOUT AN ERROR. MOSTTIMES IT WILL BE USED TO PRINT THE 
1422 s DATA IN CASE OF DATA ERROR, - 
1423 ’ 
1424 i 
mt ‘ INPUTS : (SP) sADORESS OF FIRST ARGUMENT 
t 
1427 1 
4 : OuTPUT: NONE 
$b 
1430 3 AUTHOR: — ZILLER CSS Pp MUNICH MAY 1977 
1431 006706 $.. ADP: WRITE + 3 "SHOUL 
1432 006716 DUMP — , SHLD :DUMP DATA 
1433 006730 WRITE MER? 3: “WAS” 
1434 006740 OuUMP OCT, SWAS s0UMP 


DATA 
1435 006752 000207 RE TURN sRETURN TO MAIN 


FECHA DIAGNOSTIC 


1437 


C5 
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007152 


-SBTTL $..TOT 
i THIS yes IS ENTERED AFTER THE MACRO “ADRTST” HAS BEEN EVOCED 
— A BUS HAPPENED 


TIMEOUT HAS 
INPUT: 4(SP) = PC FOR PROGRAM CONTINUATION 
: RO © REGISTER ADDRESS (E.G. 164000) WHICH SHOULD BE TESTED 
G 
;OUTPUT: THE ERROR MESSAGE: 
, THIS ADDRESS IS NOT AVAILABLE ON UNIBUS: 164000 
; AUTHOR: ALBERT BREM,CSS MUC FEB 1979 
ge 
3 
b 
$.. TOT: ADO 04,SP sCORRECT SP 
WRITE  $MNOAV sSAY ADORESS NOT AVAILABLE ON UNTBUS 
DUMP OCT, RO {DUMP REGISTER ADDRESS 
tst OUTFLG 1 SYNCHRONIZE PRINTOUT 
MOV 06,904 REBUILD TRAP CATCHER 
JMP a SP). ;JUMP TO CONTINUATION LABEL 


FECA, A DIAGNOSTIC 


DS 
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-SBTTL $..BUF 


1 SUBSECTION TO CONTAIN ALL oe oe CONSTANTS AND 


: ‘NOT MACRO-DEFINED’ PARAMETER 


; AUTHOR : BERT MUBER CSS/DP MUNICH 


ms 1.PSECT CSSMON 


-ENABL LSB 
MEMORY MANAGEMENT DEF INITIONS 
KDSORO*172320 


KISOR6*1723514 
KISOR7*172316 


UDSDRO=177620 
UISARO*177640 
UISAR4*177650 


UISAR7*177656 
UISORO*177600 
UISOR4*177610 
UISORS*177612 
UISOR6*177614 
UISOR7*177616 
UBMPR = 170200 

CMODE = 140000 


PMODE = 30000 
SRO#177572 
SR3*172516 
$sPTYP: .WORD 
SsMTYP: WORD 
MEMEND: .WORD 


ooo 


2 
9 
5 
53 
@ 
5 


s INPUT 


o ooooooooco 


sREF ERENCE 
s INPUT BUFFER POINTER 


sIF O:*LSI; IF -1:=*POP 

sIF O:NO MM; IF 1:WITH MM 

sTOP OF CORE ng S ae EXTENSION 
sSTARTING FROM HE TILL —* 
sTHE CONTENTS Fry BE CLEARED 
sWITH “ABO” 

3 TERMINAL ve 5 BUFFER 


‘RUNNING” FLAG 


sOUTPUT ‘RUNNING” FLAG 


s'ERROR HANOLING REQ.’ FLAG 
s'WAIT FOR SPECIAL INPUT” FLAG 


sBUFFER PS-CONTENT IF SAVED 
sHOLOS — ERROR a 
sUSED IN $,.KBI AND $ = 


3 SAVE AREA FOR SCOPE LOOP ADDRESS 


sSPECIAL ASCII INPUT FLAG 


SEQ SS 


“ES 


peg ica DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 28-1 SEQ 56 
1520 007176 000000 $SHLD: .WORD 0 sUSED IN $..ADP 
1521 007200 000000 $WAS: -WORD O sUSED FOR $..ADP 
1522 -NLIST BEX 
1523 007 133 103 04 PROMES: .ASCII /(COM>)/ 
1524 007210 133 135 OUMMES: .ASCII A iV 
1525 007213 133 115 105 MKBOVF; .ASCII /[KEYBOARD BUFFER OVERFLOW! REENTER)/ 
1526 007256 133 111 114 MILOCT: .ASCII /[ILLEGAL OCTAL INPUT !! REENTER)/ 
1527 007316 133 111 114 MILDEC: .ASCII /[{ILLEGAL DECIMAL INPUT !! REENTER)/ 
1528 007360 133 111 114 MILBIN: .ASCII /[ILLEGAL BINARY INPUT !! REENTER)/ 
1529 007421 133 111 114 MILEMT; .ASCII /{ILLEGAL EMT -NUMBER)/ 
1530 007445 133 102 131 MILAOR: .ASCII /(BYTE ADDRESS IS NOT ALLOWED )/ 
1531 007503 133 123 131 MSYERR: .ASCII /(SYNTAX cos $()/ 
1532 007524 133 123 105 MILSCP: .ASCII /[{SCOPE LOOP SKIPPED TO A SUBSEQUENT ERROR !![7/ 
1533 007601 133 123 125 -ASCIT {SUSPECT AN INTERMITTEND HARDWARE ERROR[ )/ 
1534 007652 133 105 122 MERROR: .ASCII 


uw 
: 
: 
g 
°o 
: 
a 
: 


AT sasenin rot pa \/ 

1536 007704 133 120 122 MPWRFL: .ASCII AM MADE POWER FAIL ()/ 

1537 007737 133 105 122 MERCOV: .ASCIT ERROR COUNTER OVERFLOW ON ERROR: }/ 

1538 010002 133 056 OS6 MERMLT: .ASCI] /[...HALT AFTER ERROR... )/ 

1539 010032 133 117 120 MNOSUB: Aeett AS they NOT SUPPORTED IN THIS COM VERSION)/ 


1540 010104 133 111 114 MILTRi: .ASCII /({ILLEGAL INTERRPT OR TRAP TO : )/ 

1541 010144 040 040 040 MILTR2: .ASCII : FROM: )/ 

1542 010156 133 133 133 MVERSN: .ASCII /(((l COM V3.5 ---CSS DIAGNOSTIC MONITOR---({[{/ 
1543 010252 110 111 107 -ASCII /HIGHEST MEMORY ADDRESS : }/ 

1544 010304 133 040 103 MERI: -ASCII /{ CONTENT SHOULD BE : J/ 

1545 010333 040 040 040 MER2: -ASCII / BUT WAS : j/ 

1546 010351 133 133 124 $MNOAV: .ASCII /([{[THIS ADDRESS IS NOT AVAILABLE ON UNIBUS: ]/ 
1547 010426 133 115 105 MEMDEF: .ASCII /[MEMORY MANAGEMENT UNIT IS DEFECT!!!/ 

1548 010472 133 111 114 MAPER: .ASCII /[ILLEGAL MAPPING ADDRESS SPECIFIED!!!!( )/ 

1549 010542 133 127 105 -ASCII /(WE WILL TRY WITHOUT MEMORY MANAGEMENT )/ 

1550 010612 066 135 NO6 : -ASCII /6)/ 

1551 - EVEN 

1552 -LIST BEX 

1553 -OSABL LSB 


1554 010614 COM. .E: 


OIAGNOSTIC 


012746 
004737 


012746 
004737 


005046 
004737 


005700 
001402 
000137 
012700 
032700 
001360 


020027 
103001 
000754 
020027 
101401 
000750 


012737 


012737 


FS 
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021606 


010656 
160010 
000007 


160010 
177776 


006754 
010624 


000006 


024204 
000002 


006754 
010624 


000006 


024206 
000002 


006754 
010624 


000006 
024212 
000001 


024210 
000001 


006754 


: 
RGAIN: 


18: 


-TITLE IEC11-A OLAGNOSTIC 
-NLIST CNO 


-LIST MEB 


SEQ 57 


WRITE M1 sIDENTIFY TEST 

MOV oM1, -(SP) sSAVE @M1 ONTO STACK 
CALL Gee | INITIATE PRINTOUT 
WRITE $1 sENTER FIRST REG OF IEC11-A 
MOV @MES1, -CSP) sSAVE @MES1 ONTO STACK 
CALL . WRT S INITIATE PRINTOUT 
READ OCT,RO s INPUT REQUEST 

CLR “er 4 s INDICATE OCTAL INPUT REQUIRED 
CALL sACCEPT INPUT 

IF RO NE e) GOTO i$ r 

TsT RO sIS RO ZERO ? 

BEQ .*6 3 

JMP 1% : 

MOV #160010,R0 sSAVE DEFAULT VALUE 


BIT @7,RO0 


sCHECK THREE LSB OF INPUT 


sIF NOT ae REQUEST AGAIN 


BNE RGAIN 
IF RO LO #160010 GOTO RGAIN 


CMP RO, #160010 
BHIS 04 

BR RGAIN 

IF RO HI ptf. GOTO RGAIN 
CMP RO,0177776 
BLOS a +4 

BR RGAIN 

ADRTST RGAIN 

MOV @$..TOT,904 
MOV @RGAIN, -( SP) 
TST CRO) 

MOV 06,804 

TST (SP )> 

MOV RO,.CIR 

ADD @2,RO0 

ADRTST RGAIN 

MOV #¢..TOT,@04 . 
MOV @RGAIN, -( SP) 
TST CRO) 

MOV 06 , 804 

TST (SP )> 

MOV RO, SMR 

ADD 2,R0 

ADRTST RGAIN 

MOV #$..TOT,@04 
MOV @RGAIN, -( SP) 
TST (RO) 

MOV 06,804 

TST (SP )- 


ACD 1,R0 
ADRTST RGAIN 
MOV o$..TOT,a04 


; COMPARE RO AND #160010 
6 
6 


: 
sCOMPARE RO AND 0177776 
; 
; 


sPROVIDE TIMEOUT ENTRY 


ORE TIMOUT VECTOR 
sCORRECT STACK 


sSAVE CIR ADORESS 
sBUILD NEXT ADDRESS 


sPROVIDE TIMEOUT ENTRY 

sSAVE RETURN ADORESS ON STACK 
sIS ADDRESS AVAILABLE ? 
sRESTORE TIMOUT VECTOR 
sCORRECT STACK 


sSAVE SMR REG ADDRESS 
sBUILD NEXT ADORESS 


sPROVIDE TIMEOUT ENTRY 

sSAVE RETURN ADDRESS ON STACK 
sIS ADDRESS AVAILABLE ? 
sRESTORE TIMOUT VECTOR 
sCORRECT STACK 


s SAVE I0R REG ADDRESS 
sBUILD HIGH-BYTE ADDRESS 


;OF IOR 
;BUILD NEXT ADDRESS 


sPROVIDE TIMEOUT ENTRY 


TECi1 


-A DIAGNOSTIC 
$. .BUF 


2? 
28 


32 


33 


aa 


011276 


012746 
004737 


005046 
004737 


005700 
001402 
000137 
012700 


GS 
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010624 MOV ORGAIN, -( SP) sSAVE RETURN ADORESS ON STACK 
TsT CRO) sIS ADDRESS AVAILABLE ? 
000006 000004 MOV 06,804 sRESTORE TIMOUT VECTOR 
TsT (SP )-+ sCORRECT STACK 
024214 MOV RO, VSR sSAVE VSR REG ADDRESS 
VECAIN: WRITE MES2 sREQUEST VECTOR ADORESS OF IEC11-A 
021666 MOV @MES?, -( SP) sSAVE @MES2 ONTO STACK 
005654 CALL $. .WRT s INITIATE PRINTOUT 
READ ocT, RO s INPUT REQUEST 
CLR SP) sINDICATE OCTAL INPUT REQUIRED 
005020 CALL .RED sACCEPT INPUT 
IF RO NE "3s GOTO 23 3 
TST RO 3IS RO ZERO ? 
BEG .*6 3 
011122 JMP 2s 3 
000270 MOV #270,R0 3sSAVE " AULT VALUE 
23: IF RO LO #40 GOTO VECAIN. 
000040 CMP RO, 040 3; COMPARE "RO AND #40 
BHIS 04 ; 
BR VECAIN 
IF RO HI #774 GOTO VECAIN 
000774 CMP RO, 0774 — *RO AND 0774 
BLOS 04 
BR VECAIN 
012046 CMP RO, @VSR 31S INPUT EQUAL TO VSR ? 
BEQ SAV 3IF YES,SAVE INPUT AND CONTINUE 
WRITE MES6 sIF NOT,WRITE MESSAGE 
022034 MOV @MES6, -C( SP) sSAVE @MES6 ONTO STACK 
CALL Pas _ aren PRINTOUT 
011070 JMP VECAIN sREENTER 
024224 SAV: MOV RO,VECA : SAVE IEC11-A VECTOR ADORESS 
ADORIN: WRITE MESS sREQUEST IEC11-A BUS ADDRESS 
021750 MOV @MESS, -(SP) sSAVE @MESS ONTO STACK 
CALL . WRT s INITIATE PRINTOUT 
READ OCT ,RO 3 INPUT 
CLR “eet s INDICATE OCTAL INPUT REQUIRED 
005020 CALL sACCEPT INPUT 
IF RO NE "38 GOTO 3$ : 
TST RO :IS RO ZERO ? 
BEQ 6 $ 
011222 JMP 33 3 
000035 MOV @35,RO0 s;SAVE DEFAULT VALUE 
33; IF RO LO #1 GOTO ADORIN 3 
000001 cmp RO, 1 sCOMPARE RO AND @1 
BHIS 04 F 
BR ADORIN 
IF RO HI #36. GOTO ADDRIN 
000044 CMP RO, 036. 3 COMPARE *RO AND 036. 
BLOS .*4 3 
BR ADORIN 3 
024226 MOV RO, IECAAD sSAVE IEC11-A BUS ADDRESS 
000100 024216 2%: MOV #100, TALKER sPRE-ADDRESS TALKER 
000040 024220 MOV #40,LISTNR 3PRE -ADDRESS LISTENER 
024216 BIS RO, TALKER s;SAVE TALKER ADDRESS 
024220 BIS RO,LISTNR 3;SAVE LISTENER ADDRESS 
011740 JSR PC, TESTO s TEST LON SWITCH FEATURE; eeVO2EQ0ee 
012712 8%: MOV @VSR,RO ;CHECK VECTOR ADDRESS 


SEQ 58 


HS 


DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 29-2 SEQ 59 
011302 020027 000774 RO, 0774 sLE VECTOR ? 
011306 101003 Shr 30%; ah NO s*eVO1LEO2ee 

54 011310 020027 000040 CMP RO, 040 sLEGAL VECTOR ;eeVO1EO2e« 
011314 103005 BHIS 43 sIF HIS YES s#*eVO1EO2ee 
011316 308: WRITE  MES2; sREQUEST ANOTHER VECTOR ADORESS 
011316 012746 021666 MOV @MES2, -( SP) sSAVE @MES2 ONTO STACK 
011322 004737 005654 CALL $..WRT sINITIATE PRINTOUT 
011326 000763 BR 83; s3CHECK AGAIN 
011330 020027 000040 43: CMP RO, 040; sCHECK RANGE 
011334 1037.0 BLO 308; sIF LO, INVALIO 


011336 010037 024222 MOV RO, VECTOR sGET VECTOR ADDRESS 


IEC11-A DIAGNOSTIC 
TEST SELECT ROUTINE 


62 
65 


64 
65 
66 
67 
68 
69 


70 


76 


77 


011612 


012746 


052737 


012746 
004737 


012746 
004737 


012746 
004737 


012746 


| be 
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024224 
007152 


000100 


024070 
005654 


000010 
005020 


000131 


011426 
011670 


011670 
024044 
005654 
000002 
005020 
000016 


011536 
177777 


177560 


$.. SPC: 


SFLAG: 
LAB11: 


OFFSET: 
SINGLE: 


TESTAL;: 


SEQPNT: 
SEQ: 


TESTL1: 


SEQ 60 


-SBTTL TEST SELECT ROUTINE 
@veECA 


REMVEC 
MOV @VECA, -(SP) 
EMT 2 
TsT OUTFLG 
BNE .-4 
RESET 
SET6 BeTKS 
BIS OBIT6,BeTKS 
WRITE $TPMSG 
MOV @TPMSG, -( SP) 
CALL $..WRT 
READ ASC 
MOV #10, -(SP) 
CALL D 
IF RO NE @’Y GOTO SFLAG 
CMP ey 
BEG +6 
JMP SFLAG 
CLR MSGFLG 
BR LAB11 
INC MSGFLG 
WRITE MESNEX 
MOV @MESNEX, -( SP) 
CALL $..WRT 
READ DEC RO 
Vv #2, -(SP) 


CALL $. .RED 
IF RO HI #14. GOTO LAB11 
CMP RO,@14. 


BLOS 


04 


BR LAB11 
4 RO oy GOTO TESTAL ; 


.*6 
TESTAL 
0177777, TSTREP 


RO 
RO, CPC )+ 
te) 


OFFSET ,OFFCNT 
@TT,OFFCNT 
BOFFCNT ,OFFCNT 


00, TSTREP 
@TT+2,(PC)> 


te) 

SEQPNT , OF FCNT 
@OFF CNT OFF CNT 
PC, BOF FCNT 
SEQPNT , @TTE-4 
TESTL1 

#2, SEQPNT 


SEQ 
WRITE MESEND 


MOV 


OMESEND, -( SP) 


sSAVE @VECA ONTO STACK 
sRESET @VECA VECTOR 
FOR ANY OUTPUT COMPLETE 


iCLEAR THE WORLD 
sRE-ENABLE TTY 


sASK FOR PRINTING START MESSAGES 
sSAVE @TPMSG ONTO STACK 
sINITIATE PRINTOUT 


s INDICATE ASCII INPUT IN RO REQUIRED 
sACCEPT INPUT 

3;SET FLAG 

;COMPARE RO AND @'Y 
; 


5 
sPRINT OUT START/END MESSAGES 


sNO PRINT OUT 
sREQUEST NEXT TEST TO RUN 
sSAVE OMESNEX ONTO STACK 
s INITIATE PRINTOUT 
sWAIT FOR INPUT 
s INDICATE DECIMAL INPUT REQUIRED 
sACCEPT INPUT 


; 
sCOMPARE RO AND 414, 
; 


sY OR N? 


sIS RO ZERO ? 
; 


3 
3LOOP ON SINGLE TESTS 
os Oo OFFSET INTO TABLE 
3 Vv 
sHOLOS CURRENT TEST NUMBER 
3 
i 


° 

sGOTO SELECTED TEST 

sREPEAT TEST 

sNO LOOP ON SINGLE TESTS 

sGET ADDRESS OF FIRST TEST 
;POINTER FOR TEST IN PROGRESS 
“eat ADDRESS OF NEXT TEST 


:GOTO a ta TEST 
sALL DONE 

VIF EQ, vES 

sPOINT TO —_ TEST 


sSAVE @MESEND ONTO STACK 


J5 
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SELECT ROUTINE 
011616 004737 005654 CALL $..WRT s INITIATE PRINTOUT 
011622 0001357 011556 JMP TESTAL 
99 011626 000000 012106 012250 TT: «WORD 0O,TEST1, TEST2, TESTS, TESTS, TESTS, TEST6, TEST? 


011634 012456 012700 013302 


0 
100 011646 014372 014516 015400 «WORD TESTS, TESTS, TEST10, TEST11, TESTI2, TEST13, TEST14 
011654 017046 017510 020176 


101 011664 000000 OFFCNT: .WORD 0 3 
102 011666 TTE: 
103 011666 000000 TSTREP: .WORD 


. 0 
104 011670 000000 MSGFLG: .WORD 0O sMESSAGE FLAG 


KS 


IEC11-A DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 32 SEQ 62 
LOCAL MACRO DEFINITIONS 
4 .SBTTL LOCAL MACRO DEFINITIONS 
1 :° 
109 : THIS SECTION CONTAINS ONLY MACRO DEFINITIONS 
tt 3; USED IN THE IEC-11A DIAGNOSTIC. 
te 
112 -MACRO MCLEAR 
113 BIS #BITS,acIR sEXECUTE MASTER CLEAR 
114 -ENOM MCLEAR 
115 3 
116 -MACRO SACS 
117 BIS @BITO,aCIR 3SET SACS BIT IN CIR 
tt -ENDM SACS 
1 3 
120 -MACRO INHSRQ 3 *eVO2ZEQ0Oes 
121 BIS #681T10,aCIR :SET INHIBIT SRQ INTERRUPT 
<s .ENOM INHSRQ 3 *eVO2ZEQ0es 
12 3 
124 -MACRO INTENS 
125 BIS BIT6,aCIR sENABLE INTERRUPT IN IEC-11A 
126 .ENOM INTENS 
127 3 
128 3 
129 -MACRO TSTEND A,?L 
130 TST MSGFLG sPRINTOUT OR NOT? 
131 BNE L 
132 WRITE MTE‘A; 3TEST'A END MESSAGE 
133 L: RETURN; sRETURN TO CALLER 
134 .ENOM TSTEND 
135 3 
136 -MACRO SIC 
137 BIS @BIT6,8SMR 3SEND INTERFACE CLEAR 
138 -ENDM = =SIC 
139 : 
140 -MACRO SAVCIR 
141 MOV acIR,RO ;SAVE CIR CONTENT 
142 -ENOM SAVCIR 
143 ; 
144 -MACRO SAVSMR 
145 MOV QSMR ,R1 ;SAVE SMR CONTENT 
146 -ENOM SAVSMR 
147 : 
148 -MACRO SAVIOR 
149 MOV @IOR,R2 ;SAVE IOR CONTENT 
150 -ENOM SAVIOR 
151 : 
152 -MACRO GTS 
153 BIS #B1T2,8SMR 3GO TO STAND BY 
154 .ENOM GTS 
155 ; 
156 MACRO LIN 
157 T4 
158 .ENDM LITN 
159 ; 
160 MACRO LUN 
161 SETS @SMR 
162 .ENDM LUN 


L5 
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164 -MACRO SRE 
165 SET7 aSMR 3SEND REMOTE ENABLE 
166 .ENDM SRE 
167 3 
168 -MACRO TCA 
169 BIS @B1IT1,3SMR ;TAKE CONTROL ASYNC 
170 .ENOM TCA 
171 3 
17 -MACRO TCS 
173 SETO @SMR ; TAKE CONTROL SYNCR. 
174 .ENOM Tes 
175 3 
176 .MACRO SAVIEC 
177 SAVCIR 
178 SAVSMR 
179 SAVIOR 
180 -ENOM SAVIEC 
181 8 
182 -MACRO LOOP A,B, ?2C 
183 DEC (PC )-+ sCOUNT LOOPS 
184 C: .WORD A ’ 
185 IF C NE #0 GOTO B 
186 MOV @a.C ;SETUP NEW LOOP COUNT 
187 -ENDM LOOP 
188 
189 
190 
191 
192 011672 013746 011734 RANDOM: MOV RA, -(SP) 
193 011676 013700 011736 MOV RB,RO 
194 011702 006316 ASL asP 
195 011704 005500 AOC RO 
196 011706 006200 ASR RO 
197 011710 005516 ADC asP 
198 011712 061600 ADD asP ,RO 
199 011714 005616 sBCc asP 
200 011716 060016 RO,aSP 
201 011720 005600 sBc RO 
202 011722 012637 011734 MOV (SP)+,RA 
203 011726 010037 011736 MOV RO,RB 
204 011732 000207 RETURN 
205 011734 135753 RA; . WORD 135753 
206 011736 024642 RB: -WORD 024642 


M5 
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209 
210 
211 


212 


104000 
012746 
004737 
005046 
004737 
052777 
027727 
001404 
104562 
000000 
000137 
027727 
001404 
104563 
000000 
000137 
012746 
004737 
005046 
004737 
022777 
001404 
104564 
000000 
000137 
027727 
001404 
104565 


000000 
000137 
000207 


022112 
005654 
005020 


000040 
012212 


011740 
012174 


011740 
022216 
005654 


005020 
000600 


011740 
012116 


011740 


012216 
000602 


010000 


012132 


010000 


TESTO: 


1%: 


2s: 


3$: 


4$: 


SBTTL 
Score 


TEST LON SWITCH FEATURE 


3 *#eVO2ZE00see 
SLON sSET LON SW MESSAGE s *eVO2EO00se 
@SLON, (SP) sSAVE @SLON ONTO STACK 
. wet INITIATE PRINTOUT 
-(SP) eet OCTAL INPUT REQUIRED 
$..REO sACCEPT INPUT 
sPRODUCE CLEAN STATUS 3 *eVO2E00ses 
#BITS,acIR sEXECUTE MASTER CLEAR 
IR, 0602 sSTATE CHGE,INT,LON 3 *#eVO2E00s 
1% sBRANCH IF CORRECT 3 *eVO2E00es 
114 3CIR CONT NOT #602 3 **eVO2ZE00ses 
114. sERROR 114. 
sERROR COUNT 
i?) 3 **eVO2ZEO0Oss 
aSMR , OBI T12 sLACS SET » ¥ enmmethd s *eVO2E00sees 
sBRANCH IF O.K 3 *eVO2EQOses 
115. sLACS NOT OR NOT ONLY 3 *eVO2E00es 
115. sERROR 115. 
0 sERROR COUNT 
TESTO . eeVO2E00es 
CLON sRESET LON SW MSG *eVO2E00ee 
@CLON, -( SP) sSAVE @CLON ONTO. STACK 
oe oa S INITIATE PRINTOUT 
-(SP) 3s INDICATE a INPUT REQUIRED 
$. .RED sACCEPT INPU 
#600, aCIR sSTATE CHGE,INT 3 *eVO2EO0O0ee 
3% sBRANCH IF O.K. 3 *eVO2EOOes 
116. sCIR CONTENT NOT #600 3 *eVO2EO0es 
116. sERROR 116. 
c) sERROR COUNT 
0 3 **#VO2ZEQOses 
@SMR , OBIT12 sLACS STILL SET? 3 *eVO2EQOes 
4$ ;BRANCH IF YES 3 *eVO2ZEQ00es 
S57, sERROR IF NO 3 *eVO2EQ0es 
Bay. sERROR 117. 
sERROR COUNT 
TESTO 3 *#VO2E00se 
;sRETURN FROM SUBTEST 3 *eVO2EQOes 


SEQ 64 


NS 


1-A T M1200 30-MAR-84 16:02 PAGE 34 
FESH"i* PRERUPE "Alister cLERR’ 
234 .SBTTL TEST 1 EXECUTE MASTER CLEAR 
235 012106 005737 011670 TEST1: TST MSGFLG sPRINTOUT OR NOT? 
236 012112 001004 BNE LOPT1 
237 012114 WRITE MT1S :TEST1 START MESSAGE 
012114 012746 022324 MOV OMT1S, -(SP) sSAVE @MT1S ONTO STACK 
012120 004737 005654 CALL ss. WRT sINITIATE PRINTOUT 
238 012124 104000 LOPT1: SCOPE ;SCOPE LOOP MARKER 
239 012126 MCLEAR 
012126 052777 000040 012050 BIS oBITS,@CIR sEXECUTE MASTER CLEAR 
240 012134 017700 012046 MOV SMR, RO :SAVE SMR CONTENT 
241 012140 001404 BEQ 18 IF EQ, YES 
242 012142 ERROR 1. sILLEGAL SMR AFTER MC 
012142 104401 TRAP i. sERROR 1. 
012144 000000 .WORD 0 sERROR COUNT 
243 012146 000137 012106 MP TEST : 
244 012152 1%: SAVCIR 
012152 017700 012026 MOV @CIR,RO :SAVE CIR CONTENT 
245 012156 001404 BEQ 2s sIF EQ, NO BIT SET 
012160 ERROR 2. sILLEGAL CIR AFTER MC 
012160 104402 TRAP 2. sERROR 2. 
012162 000000 .WORD 0 ;ERROR COUNT 
247 012164 000137 012106 JMP TEST : 
248 012170 017700 012016 2%: MOV SIOR, ;SAVE IOR CONTENT 
249 012174 001404 BEQ 3$ IF EQ, NO BIT SET 
250 012176 ERROR 3. ;ILLEGAL IOR AFTER MC 
012176 104403 TRAP. sERROR 3. 
012200 000000 .WORD 0 sERROR COUNT 
251 012202 000137 012106 MP TEST1 : 
252 012206 3$: LOOP = -1, LOPT1 
012206 005327 DEC PC). ;COUNT LOOPS 
012210 177777 64s: “1 : 
012212 005737 012210 TST 643 :I1S 64% ZERO ? 
012216 001401 BEQ 04 , 
012220 000741 BR LOPT1 : 
012222 012737 177777 012210 MOV 6-1,648 :SETUP NEW LOOP COUNT 
253 012230 TSTEND 1 
012230 005737 011670 TST MSGFLG ;PRINTOUT OR NOT? 
012234 001004 BNE 668 
012236 012746 022371 MOV OMTE1, -(SP) ;SAVE @MTE1 ONTO STACK 
012242 004737 005654 CALL 8. WRT ;INITIATE PRINTOUT 
012246 000207 66$: RETURN; ;RETURN TO CALLER 


TEC11-A OITAGNOSTIC MACRO 
TEST 2 TEST SACS BIT IN CIR 


282 


005737 
001004 


012746 
004737 


052777 
104000 


052777 
017700 


032700 
001004 


104404 


000000 
000137 
104000 


042777 
017700 


032700 
001404 


104405 


000000 
000137 
104000 


052777 
052777 


017700 
001404 


104406 
000000 
000137 


011670 


022405 
005654 


000040 


000001 
011674 


012250 


012416 


177777 
011670 


022452 
005654 


011710 


011700 


011646 


011614 
011606 


012416 


TEST: 


LOPT2: 


18%; 


2s: 


66%: 


B6 
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TEST 2 TEST a BIT IN CIR 
MSGFLG PRINTOUT OR NOT? 


sTEST2 rome won y 
@MT2S ONTO STACK 
bINITIATE PRINTOUT 


LoPT2 

MT2S 

enT2s, -(SP) 
$. .wATt 


BITS, @CcIR 


@BITO,@CIR 
@cIR,RO 

RO 
@BITO,RO 
is 

4, 

4. 


te) 
TEST2 


ecIR 
@B1TO,@CIR 
@cIR,RO 

RO 
@BITO,RO 
es 


Ss. 
5. 


te) 
TesT2 


*6ITO,aCIR 
eBITS,@cIR 
+ etme 


AR CONTROLLER STATE 


sPROOUCE 
sEXECUTE Hays fl CLEAR 


SCOPE LOOP MARK 
1ST SACS BIT IN CIR 


sSAVE CIR CONTENT 


sIF NE, SET 
sSACS BIT NOT i 


sERROR 4 
sERROR COUNT 


1 SCOPE LOOP MARK 
sTRY TO RESET SACS BIT 


sSAVE CIR CONTENT 
sSACS RESET ? 


sIF EQ, YES 
sSACS NOT RESET Br BIC 
RROR S 


3€ . 
sERROR COUNT 


sSCOPE LOOP MARKER 


2 
sSET SACS BIT IN CIR 


8 

sEXECUTE MASTER CLEAR 

sIS SACS CLEAR AFTER MC ? 
sSAVE CIR CONTENT 
sIF EQ, YES 
sSACS NOT RESET By MC 


sERROR 6. 
sERROR COUNT 


sCOUNT LOOPS 
31S 648 ZERO ? 


L 
sSETUP NEW LOOP COUNT 
sPRINTOUT OR NOT? 


sSAVE @MTE2 


ONTO STACK 


sINITIATE PRINTOUT 
sRETURN TO CALLER 


SEQ 66 


312 


C6 


QECPNETA ‘Err 10 TARP Y*ERG iiPERAGsh* 16:02 PAGE Se 
TTL TES) TEST CIR BIT NHIBIT SRQ INTERRUPT 
aSP™ HESS TEST CO BEE AS PSE 


005737 
001004 


012746 
004737 


052777 
104000 


052777 


032777 
001004 


104551 
000000 
000137 
042777 


032777 
001404 


104552 


000000 
000137 
104000 


052777 


032777 
001004 


104553 
000000 
000137 
052777 


032777 
001404 


104556 
000000 


012737 


005737 
001004 
012746 


011670 
022466 
005654 
000040 


012456 


012456 


012640 


177777 
011670 
022554 


011502 


011472 
011464 


011444 
011436 


011414 
011406 


011366 
011360 


012640 


TESTS: 


Cc 
LOPT2A;: 
8 


18; 


2s: 


33: 


4$; 
64%; 


WRITE 
MO 


MT2AS 
@MT2AS, -( SP) 
$. .WRT 


BITS, @cIR 


Sea 
oBIT10,aCIR 


acIR 
@61T10,aCIR 
acIR 
#61T10,aCcIR 


o61T:0,aCcIR 
ecIR 
> lemme 


BITS, acIR 
@cIR 


OMTE2A, -( SP) 


sGIVE a START MSG 


3 *eVO2E00es 


VE OMT2AS ONTO STACK 
SINITIATE PRINTOUT 


CLEAR CONTR STATE 3; #eVO2E00es 


sPROOUCE 

iEXECUTE MASTER CLEAR 
sSCOPE LOOP ENTRY 
sSET SRQ INT INHIBIT 


sSET INHIBIT SRQ INTERRUP 


sIS BIT 10 IN CIR SET? 


sBRANCH IF SE 

iBT 10 IN CIR NOT SET 
sERROR 105. 
sERROR COUNT 


sRESET BIT 10 IN CIR 
sCLEAR AGAIN ? 
s;BRANCH IF YES 

sBIT 10 NOT CLEAR 


sERROR 106. 
sERROR COUNT 


sSET SRQ INT INHIBIT 


s *eVO2E00es 
3 seVO2EOOes 
T 

3 *eVO2ZE00see 
3 *#eVO2E0Oee 
3 *eVO2E00ee 
3 *eVO2E00ee 
3 *eVO2ZE0Oee 
s *eVO2EQ0es 
3 *eVO2ZE0Oss 
3 eeVO2EQOes 
3 seVO2EQOes 


3 *eVO2E00ee 


sSET INHIBIT SRQ INTERRUPT 


3LOOK IF SET AGAIN 
sBRANCH IF O 


sBIT 10 IN cin’ NOT SET AGAIN ; *eVO2EOQ0ee 


sERROR 107 
sERROR COUNT 


sRESET BIT1O IN CIR BY MC ; seVO2EO0ee 


sEXECUTE MASTER CLEAR 


3 *eVO2ZEQOes 
3 *seVO2EQ0see 


3L00K IF DONE 3 *eVO2E00ee 
;BRANCH IF O.K @eVO2EOOee 
3B8IT10 IN CIR “NOT CLEAR; @eVO2ZEOOee 

sERROR 110 

;ERROR COUNT 

: eeVO2EO0es 

sLOOP IN STEP? s *eVO2ZE0Oee 
;COUNT LOOPS 


' 
sIS 64% ZERO ? 
: 


é 
sSETUP NEW LOOP COUNT 
sRETURN TO CALLER 
sPRINTOUT OR NOT? 


sSAVE @MTE2A ONTO STACK 


SEQ 67 


D6 
FECHa* OFOPMPSATET1 10 PARRA PERG inPeHAfe?* 16:02 PAGE Se-t SEQ 68 


012672 004737 005654 al INITIATE PRINTOUT 
013676 000207 665: URN; yReTURN f0 CALLER 


E6 
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Testa” PeSP eRe sic sras tense eace =e 
314 SBTTL TEST 4 TEST SACS SIC SIAS ILLMSG CACS 
315 012700 005737 011670 Testa: 7ST | MSGFLG ;PRINTOUT OR NOT? 
316 012704 001004 BNE —«LOPTS 
317 012706 WRITE MT3S iSTART MESSAGE TEST 4 
012706 012746 022570 MOVs @MIT 8S, -( SP) SSAVE @MT3S ONTO STACK 
012712 004737 005654 CALLS. WRT S INITIATE PRINTOUT 
318 012716 LOPTS: CLEAR , 
012716 052777 000040 011260 BIS BITS. eCIR VEXECUTE MASTER CLEAR 
319 012724 SACS 
012724 052777 000001 011252 BIS. eBITO,eCcIR iSET SACS BIT IN CIR 
320 012732 104000 SCOPE SCOPE LOOP MARKER 
321 012734 sic ISEND INTERFACE CLEAR 
012734 052777 000100 011244 BIS oBIT6, @SMR ISEND INTERFACE CLEAR 
322 012742 000240 NOP WAIT SOME MICRO SECONDS 
323 012744 000240 NOP 
324 012746 000240 
325 012750 SAVCIR 
012750 017700 011230 MOV. @CIR, RO :SAVE CIR CONTENT 
326 012754 SAVSMR SAVE SHR CONTENT 
012754 017701 011226 MOVs @SMR, RI ISAVE SMR CONTE 
327 012760 CLR8 — @CIR IRESET "STATE CHANGE” BIT 
012760 042777 000400 011216 BIC eBIT8,eCIR 
328 012766 TST12 RO ILLEGAL MESSAGE ? 
012766 032700 010000 BIT @BIT12,RO 
329 012772 001404 BeEQStiéidLS :IF €Q, NO 
330 012774 ERROR 7. ILLEGAL MESSAGE 
012774 104407 TRAP Vo zERROR 7. 
012776 000000 WORD 0 SERROR COUNT 
331 013000 000137 012700 eCTesT@ , 
332 013004 1s: TsT13 RI ISIAS SET ? 
013004 032701 020000 BIT  eBIT13.R1 
333 013010 001004 BNE 28 :IF NE, YES 
334 013012 ERROR 10. ISIAS NOT SET 
013012 104412 TRAP 10. sERROR 10. 
013014 000000 . WORD O° s;ERROR COUNT 
335 013016 000137 012700 eSC«CSTEST@ : 
336 013022 2: Tst8@ RO ISTATE CHANGE ? 
013022 032700 000400 BIT  eBIT8,RO 
337 013026 001004 BNE so«88 LIF NE, YES 
338 013030 ERROR il. INO STATE CHANGE TO SIAS 
013030 104413 TRAP 11. SERROR 11. 
013032 000000 ‘WORD OO HERROR COUNT 
339 013034 000137 012700 ee Testa : 
340 013040 38: Tst8 R11 ICACS SET ? 
013040 032701 000400 BIT eBITS,R1 
341 013044 001004 BNE «108 iIF NE, YES 
342 013046 ERROR 12. CACS NOT SET BY SIAS 
013046 104414 TRAP 12. :ERROR 12. 
013050 000000 ‘WORD OO VERROR COUNT 
343 013052 000137 012700 meSs«CSTEST@ : 
344 013056 005037 013074 10s: CLR 118 ; 
345 013062 4s: TST13 OSM ISIAS RESET ? 
013062 032777 020000 011116 BIT eBITL3,aSMR 
346 013070 001407 BEQStié*SS sIF €Q, YES 
347 013072 005227 INC (PC)> MAIT A WHILE 
348 013074 000000 11%: .WORD 0 3 


349 013076 001371 BNE 4s H 


350 013100 
013100 
012.02 

351 013104 

352 013110 
013110 

353 013114 
013114 

354 013120 


355 013124 
356 013126 
357 013132 
358 013136 


359 013142 
360 


377 013262 


013270 


104415 
000000 
000137 
017700 
017701 


032700 
001004 


104416 
000000 
000137 
032701 
001004 
104417 
000000 


000137 
104000 


052777 
017701 


032701 
001404 


104420 


000000 
000137 
104000 


052777 
017700 


032700 
001004 


104421 
000000 
000137 
005327 
177777 
005737 
001401 
000621 
012737 
005737 


001004 
012746 


012700 
011070 
011066 
000400 


012700 


013242 


177777 
011670 
022647 


011020 


010770 


013242 


S$: 


63: 


7$: 


9%; 


F6 
FESHA® FESINRREE src srAS“PCL ARE Racd° R84 16102 PAGE 37-1 


RROR 13. 

TRAP 13. 
. WORD 0 
JMP TEST4 
SAVCIR 

Vv aciIR,RO 
SAVSMR 
“mov @SMR ,R1 
TsTs RO 
BIT #BITs,RO 
BNE 6$ 
ERROR 14, 
TRAP 14, 
. WORU v 
JMP TEST4 
Ts78 1 
BIT OBITS,R1 
BNE 7$ 
ERROR 15. 
TRAP 1S. 
. WORD 0 
JMP TEST4 
SCOPE 
MCLEAR 
BIS BITS,acIR 
SAVSMR 

1] OSMR RL 
TSsT8 R1 
BIT OBITS,R1L 
BEQ $ 
ERROR 16. 
TRAP 16. 
. WORD 0 
JMP TESTS 
SCOPE 
sIc 
BIS @BIT6,38SMR 
SAVCIR 

1") acIR,RO 
TsTi2 R 
BIT #BIT12,R0 
BNE 9$ 
ERROR 17. 
TRAP ‘7. 

WORD 0 

JMP TEST4 
LOOP -1,LOPT3 
DEC _— 
TST 643 
BEQ 04 
6R LOPTS 
MOV @-1,64$% 
TSTEND 3 
TST MSGFLG 
BNE 66% 
MOV @MTEs, -(SP) 


sSIAS NOT RESET 
sERROR 15 


sERROR COUNT 
t 


sSAVE CIR CONTENT 
vE 


sSTATE CHANGE ? 


sIF NE, YES 
3NO seams Ps SIAS RESET 
. . 


sERROR COUN 
H 
sCACS STILL SET ? 


sIF NE, YES 

sCACS RESET WITH SIAS RESET 
sERROR 15. 
sERROR COUNT 


F 

3SCOPE LOOP MARKER 
sEXECUTE MASTER CLEAR 
sSAVE NEW SMR CONTENT 
3;SAVE SMR CONTENT 
sCACS RESET ? 

3IF €Q, YES 


sCACS NOT RESET WITH MC 
sE 16. 


6 
sSCOPE LOOP MARKER 


sSEND INTERFACE CLEAR 


sSAVE CIR CONTENT 
sIS ‘ILL. MESS’ SET ? 


sIF NE, YES 

sNO ILL MESS TO SICS w/0 SACS 
sERROR 17. 
sERROR COUNT 

3 

;COUNT LOOPS 


: 
sIS 64% ZERO ? 
: 


é 
sSETUP NEW LOOP COUNT 
sPRINTOUT OR NOT? 

sSAVE @MTES ONTO STACK 


SEQ 70 


G6 


IEC11-A DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 37-2 SEQ 71 
TEST 4 TEST SACS SIC SIAS ILLMSG CACS 
013274 004737 005654 CALL $..WRT sINITIATE PRINTOUT 


013300 000207 663: RETURN; sRETURN TO CALLER 


FESt Ss” FEI ERT Ene 


379 
380 
381 
382 


383 


400 


005737 
001004 


012746 
004737 


H6 
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011670 
022663 
005654 
000040 
024204 
000100 
000100 


000100 
000100 


013404 


177777 
011670 


022720 
005654 


010656 


013404 


TESTS: 


LOPTSA: 


1%: 


2s: 


SEQ 72 


TEST 2 TEST INT ENB 
MSGFLG 


LOPTSA 

MT3AS 
@MT3AS, -(SP) 
$..WRT 


#BITS,@CcIR 
CIR,R1 


a1 
oBIT6,AR1 
@R1 
oBIT6,GR1 
i$ 


OMTESA, 
$ . WRT 


-(SP) 


sPRINTOUT OR NOT? 


sSTART MESSAGE TEST 5S 
sSAVE @MTSAS ONTO STACK 
pINITIATE PRINTOUT 

sMASTER CLEAR 

sEXECUTE MASTER —_— 

sGET CIR ADDRESS 

sSCOPE LOOP MARKER 

sTRY TO SET INTERRUPT ENABLE 


sIS INT ENBL SET ? 


3IF NE, YES 

sSAV CIR 

s INTERRUPT ENBALE NOT SET 
sERROR 33. 
sERROR COUNT 


} SCOPE LOOP MARKER 
sTRY TO RESET INTERRUPT ENABLE 


sIS INT ENABLE RESET ? 


sSAVE CIR 
3s INTERRUPT ts NOT RESET 


sERROR ‘. 
sERROR COUNT 
3 
;COUNT LOOPS 


; 
IS 648 ZERO ? 
: 


; 
sSETUP NEW LOOP COUNT 
sRETURN TO CALLER 
sPRINTOUT OR NOT? 


sSAVE @MTESA ONTO STACK 
s INITIATE PRINTOUT 
sRETURN TO CALLER 


TES H S” TES TERRUPT 


005737 
001004 


012746 
004737 


012746 
012746 
012746 
104001 
104000 


052777 
012705 


017700 
017701 
017702 


16 


setae 16:02 PAGE 39 


011670 


022734 
005654 


024222 
021334 
000000 


000040 
010000 
013574 


000100 
177776 


000100 
013546 


010426 
010424 
010424 


000040 
000400 
013702 


010320 
010316 
010316 


010474 


010456 


010446 


010370 


010352 
010344 
010340 


TEST6: 


108%; 


LOPT4: 


2%: 


4%: 


5$: 
6%: 


ist 
BNE 
WRITE 
MOV 


.SBTTL TEST 6 TEST aber, WITH ert CHGE 
MSGFLG 


PRINTOUT OR NOT? 


108 
MT4aS sTEST 6 START MESSAGE 
OMT4s, -( SP) sSAVE @MT4S ONTO STACK 
$. .WRT } INITIATE PRINTOUT 
@VvECTOR, @IECINT,&0 :SET VECTOR s #eVO3E02ee 
@vVECTOR, -( SP) 3 SAVE evecTor ONTO STACK 
@IECINT, -( SP) sSAVE @IECINT ONTO STACK 
#0, -(SP) sSAVE #0 ONTO STACK 
1 sSETUP @VECTOR VECTOR 
:SCOPE LOOP MARKER 
BITS,acIR sEXECUTE MASTER CLEAR 
@6IT12,.R5 3SETUP INTERRUPT MASK 
033 ,R4 sSETUP RETURN ADORESS 
@BIT6,aCIR sENABLE INTERRUFT IN IEC-11A 
BOPS sENABLE INTERRUPTS 
onaee sSENO INTERFACE CLEAR 
toe sWAIT FOR INTERRUPT 
18 
acIr,RO sSAVE CIR CONTENT 
@SMR R11 sSAVE SMR CONTENT 
SIOR ,R2 sSAVE IOR CONTENT 
20. sNO INTERRUPT TO SIC 
20. sERROR 20. 
te) sERROR COUNT 
TEST6 
as sIF CC, INTERRUPT OK 
21. sILLEGAL INTERRUPT 
2l1. sERROR 21. 
r¢) sERROR COUNT 
TEST6 3 
3SCOPE LOOP MARKER 
eBITS,acIR sEXECUTE MASTER CLEAR 
@BITS8,RS ;SETUP INTERRUPT MASK 
@7$,R4 ;SETUP INTERRUPT RETURN ADDRESS 
@BIT6,acIR sENABLE INTERRUPT IN IEC-11A 
BITO,aCIR sSET SACS BIT IN CIR 
OB IT6,aSMR sSEND INTERFACE CLEAR 
6% sWAIT FOR INTERRUPT 
(PC )- 
te) 
53 
sSAVE ALL IEC-REGISTERS 
@acIR,RO sSAVE CIR CONTENT 
@SMR ,R1 s;SAVE SMR CONTENT 
@IOR ,R2 sSAVE IOR CONTENT 


SEQ 75 


442 


DIAGNOSTIC MACRO M1200 30 


TEST INTERRUPT WITH STATE CHGE 


013674 
013674 
013676 000000 
013700 000661 
013702 
013704 
013704 
013706 000000 
013710 000655 
013712 

013712 005327 
013714 
013716 005737 013714 
013722 001401 


013724 000665 
013726 012737 177777 013714 
013734 


013734 005737 011670 
013740 001004 
013742 012746 023013 
013746 004737 005654 
013752 000207 


J6 


-MAR-84 16:02 PAGE 39-1 
ERROR 22 
TRAP 22 
-WORD O 
BR TEST6 
7$; Bcc 83 
ERROR 23 
TRAP 23 
-WORD O 
BR TEST6 
88: LOOP -1,LOPT4 
DEC (PC)> 
648%; . WORD -1 
TST 64% 
BEQ 04 
BR LOPT4 
Vv @-1,64$ 
TSTEND 4 
1st MSGFLG 
66$ 
MOV OMTES, -( SP) 
CALL $..WRT 
66% RETURN; 


sNO INTERRUPT TO SIC AND SACS 
sERROR 22. 
sERROR COUNT 


sIF CC, INTERRUPT OK 
sILLEGAL INTERRUPT 
sERROR 23. 
sERROR COUNT 
b 


sCOUNT LOOPS 


: 
sIS 648 ZERO ? 
; 


: 
sSETUP NEW LOOP COUNT 
sPRINTOUT OR NOT? 

sSAVE @OMTE4 ONTO STACK 


s INITIATE PRINTOUT 
sRETURN TO CALLER 


SEQ 74 


K6 


FESH1 59 OZAOMOSITE cuce PACE RRIAGOCG, pSOcHAR-84 16:02 PAGE 40 


013754 
013760 
013762 
013762 
013766 
013772 
013772 
014000 
014000 
014006 
014010 
014010 
014016 
014022 
014024 
014024 
014030 
014030 


005737 
001004 


012746 
004737 


052777 


052777 
104000 


052777 
105777 
100407 
017700 
017701 
104430 
000000 
000745 
042777 


032777 
001407 


017700 
017701 
104431 


000000 
000727 
005037 
032777 
001014 
005227 
000000 
001371 
017700 
017701 
017702 
104432 
000000 
000705 


032777 
001003 


104433 
000000 


011670 


023027 
005654 


000001 


000400 
010000 


010120 
010116 


014114 
040000 


000400 


010204 
010176 


010170 


010134 
010126 


010076 


010034 


TEST?: 


LOPTS: 


S$: 


1%: 
10$: 


9%: 


TEST 7 TEST STA 
MSGFLG 


LOPTS 

MTSS 

@MTSS, -CSP) 
$..WRT 
*BITS,@CIR 


*BITO,a@CcIR 


oBIT7,@SMR 
@SMR 

S$ 

acIR,RO 
Q@SMR ,R1 
24. 
24. 
e) 

TEST? 

acIR 

BITS, CIR 
aciIr 
#61T12,aCIR 
1s 

acIR,RO 
SMR ,R1 

2s. 


TE CHGE INTERRUPT WITH SRAS 


sPRINTOUT OR NOT? 


sSTART MESSAGE TEST 7 
sSAVE @MTSS ONTO STACK 
INITIATE PRINTOUT 
sMASTER CLEAR 
sEXECUTE MASTER CLEAR 
sSET CONTROLLER ACTIVE STATE 
sSET SACS BIT IN CIR 
sSCOPE LOOP MARKER 
sSEND REMOTE ENABLE 


sSRE SET ? 
3IF MI, YES 
;SAVE CIR CONTENT 
sSAVE SMR CONTENT 
3SRE NOT SET 
sERROR 24, 
sERROR COUNT 
iRESET STATE CHANGE 
sILLEGAL MESSAGE ? 
sIE EQ, NO 
;SAVE CIR CONTENT 


;SAVE SMR CONTENT 

3‘ ILLEGAL MESSAGE’ 
sERROR 25. 
sERROR COUNT 

3 

sWAIT A SHORT ITME 

3SRAS SET ? 


sIF NE, YES 


sSAVE ALL IEC REGISTERS 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
sSAVE IOR CONTENT 


sSRAS NOT SET 
sERROR 26 
sERROR COUNT 

: 

sSTATE CHANGE ? 

3IF NE, YES 

3NO STATE CHANGE 
sERROR 27, 


sERROR COUNT 


SEQ 7S 


FESH 7 QESP*STATE cuce 


477 014156 
478 014160 


017700 
017701 
105701 
100003 
104436 
000000 
000657 


042777 


017701 


032700 
001003 


104550 
000000 
000612 
005327 


177777 
005737 


ORR rR NSO M02 mTE 0-1 


BR TEST? 
3$; CLR7 @SMR 
000200 010020 BIC OBIT7,@SMR 
NOP 
NOP 
NOP 
SAVCIR 
010004 MOV acIR,RO 
SAVSMR 
010002 MOV @SMR ,R1 
TSTB R1 
BPL 63% 
ERROR 30. 
TRAP 30. 
-WORD O 
BR TEST? 
: CLRS IR 
000400 007760 BIC oBIT8,aCIR 
TST14 1 
040000 BIT $BIT14,R1 
BEQ 4$ 
ERROR 31. 
TRAP 31. 
-WORD O 
BR TEST? 
4$: SWAB 
TST8 0 
000400 BIT oBIT8,RO 
BNE 7$ 
SWAB RO 
ERROR 32. 
TRAP 32. 
-WORD O 
BR TEST? 
: MCLEAR 
000040 007716 BIS #BITS,acIR 
SCOPE 
SRE 
000200 007710 BIS #B1IT7,28SMR 
NOP 
NOP 
NOP 
SAVCIR 
007674 Vv acIR,RO 
SAVSMR 
007672 Vv @SMR ,R1 
TsTi2 RO 
010000 BIT oBIT12,R0 
BNE 8$ 
ERROR 104, 
TRAP 104, 
.WORD O 
BR TEST7 
8%: LOOP -1,LOPTS 
DEC (PC )> 
64$ . WORD -1 
014332 TsT 64$ 


L6 


SEQ 76 


;RESET SRE 
sWAIT SOME MICRO SECONDS 


sSAVE CIR CONTENT 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
sSAVE SMR CONTENT 


3 
sRESET STATE CHANGE 
sSRAS RESET ? 


sIF EQ, YES 
sSRAS NOT RESET 


H 
é 
sSTATE CHANGE SET ? 


sIF NE, YES 
sREBUILD ORIGINAL CONTENT 
3NO STATE CHANGE 

sERROR 32. 

sERROR COUNT 


sMASTER CLEAR 
sEXECUTE MASTER CLEAR 
sSCOPE LOOP MARKER 
sSEND REMOTE ENABLE 


sWAIT SOME MICRO SECONDS 


sSAVE CIR CONTENT 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
sSAVE SMR CONTENT 
sILLEG. MESSAGE ? 


sIF NE, YES 

sNO ILLEG. MESSAGE 
sERROR 104, 
sERROR COUNT 

sCOUNT LOOPS 


; 
sIS 64$ ZERO ? 


FEST 7" PESPMSPATE coce TNTERRUPT WIT 


Si2 


014370 


177777 014332 
011670 
023115 
005654 


30 -MAR-84 16:02 
H SRAS 


M6 


PAGE 40-2 
BEG +4 
BR LOPTS 
@-1,64$% 
TSTEND 5 
TsT MSGFLG 
BNE 66% 
MOV @MTES, -(SP) 
CALL . .WRT 


SEQ 77 


é 

i 
sSETUP NEW LOOP COUNT 
sPRINTOUT OR NOT? 

sSAVE OMTES ONTO STACK 


s INITIATE PRINTOUT 
sRETURN TO CALLER 


TEC11-A DIAGNOSTIC 
TEST 6 - IOR DATA TEST 


532 


014372 
014376 


014510 
014514 


005737 
001004 


012746 
004737 
104000 


052777 
013704 
005003 


110314 
011402 
020 


N6 
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011670 


023127 
005654 


000040 
024212 


014456 


001750 
011670 
023165 
005654 


014456 


TEST6: 


10$;: 


LOPTSA: 


18: 


2s: 


TEST 6 - IOR me TEST 
MSGFLG 


10$ 

MTSAS 
@MTSAS, -(SP) 
$..WRT 


#8ITS,@CcIR 
OR ,R4 


SA 
MSGFLG 
66% 
OMTESA, 
$. .WRT 


-(SP) 


PRINTOUT OR NOT? 


sSTART MESSAGE TEST 8 
sSAVE OMTSAS ONTO STACK 
S INITIATE PRINTOUT 


‘ 

sEXECUTE MASTER CLEAR 
sGET IOR ADORESS 

sPREPARE DATA 

sWRITE PATTERN INTO IOR 
sREAD BACK PATTERN FROM IOR 
sPATTERN EQUAL ? 


sIF EQ, YES 

sDATA CHECK IN IOR 
sERROR 47 
SERROR COUNT 


sRESTART TEST 
;BUILD NEXT PATTERN 
sALL DONE ? 

3IF NE, NO 


sCOUNT LOOPS 


; 
11S 64% ZERO ? 


; SETUP NEW LOOP COUNT 
sRE TURN 10 MAINPROGRAM 
sPRINTOUT OR NOT? 


sSAVE OMTESA ONTO STACK 
s INITIATE PRINTOUT 
sRETURN TO CALLER 


B7 
FESH'S* QESPRHLEE coce TAFERATTGr BOARS Bego? PAGE 42 


534 -SBTTL TEST 9 TEST STATE CHGE INTERRUPT WITH GTS AND SIC 
535 014516 TEST9: SETVEC VECTOR, OLECINT, 00 sSET VECTOR 5 *eVOSEO2ee 
014516 012746 024222 MOV @VECTOR, -(SP) s SAVE evECTOR ONTO STACK 
014522 012746 021534 MOV @IECINT, -(SP) sSAVE @IECINT ONTO STACK 
014526 012746 000000 MOV #0, -( SP) sSAVE #0 ONTO STACK 
014532 104001 EMT 1 4SETUP @VECTOR VECTOR 
536 014534 005737 011670 TST MSGFLG sPRINIOUT OR NOT? 
537 014540 001004 BNE LOPT6 
538 014542 WRITE MT6S sSTART MESSAGE TEST 9 
014542 012746 025201 MOV @MTé6s, -( SP) sSAVE @MT6S ONTO STACK 
014546 004737 005654 CALL $.. WRT INITIATE PRINTOUT 
539 014552 LOPT6: MCLEAR sMASTER CLEAR 
014552 052777 000040 007424 BIS eBITS,@cIR sEXECUTE MASTER CLEAR 
540 014560 SACS sSET CONTROLER ACTIVE STATE 
014560 052777 000001 007416 BIS @BITO,@CIR sSET SACS BIT IN CIR 
541 014566 sIc sSEND INTERFACE CLEAR 
014566 052777 000100 007412 BIS @6IT6,@SMR sSEND INTERFACE CLEAR 
542 014574 013700 024204 MOV CIR,RO sGET CIR ADORESS 
543 014600 18: TSsT6 RO sWAIT FOR STATE CHANGE 
014600 032710 000400 BIT BITS, GRO 
544 014604 001775 BEQ is sPRODUCED BY SIAS 
545 014606 104000 SCOPE sSCOPE LOOP MARKER 
S46 014610 CLRE @RO iRESET STATE CHANGE 
014610 042710 000400 BIC @61T8,GRO 
547 014614 TsTé a@RO sWAIT FOR SIAS END seeVOlEOLee 
014614 032710 000400 BIT #61T6,GRO 
548 014620 001775 BEQ .-4 ' seeVOlEOlee 
549 014622 CLRE GRO sRESET STATE CHANGE seeVOlEOlee 
014622 042710 000400 BIC @61T8,aRO 
SSO 014626 GTS 3GO TO STAND By STATE 
014626 052777 000004 007352 BIS @BIT2,8SMR 3GO TO STAND By 
551 014634 005037 014652 CLR 38 sWAIT FOR CSBS 
S52 014640 2s; TsT9 SMR t 
014640 032777 001000 007340 BIT @B1T9,8SMR 
S53 014646 001012 BNE as 1 
554 014650 005227 INC CPC)» Hi 
555 014652 000000 3%; -WORD 0 a 
S56 014654 001571 BNE es ‘ 
557 014656 SAVCIR sSAVE CIR CONTENT 
014656 017700 007322 MOV @cIR,RO sSAVE CIR CONTENT 
558 014662 SAVSMR sSAVE SMR CONTENT 
014662 017701 007320 MOV @SMR ,R1 sSAVE SMR CONTENT 
559 014666 ERROR 535. sNO CSBS 
014666 104443 TRAP 35. sERROR 35. 
014670 000000 -WORD O sE COUNT 
S60 014672 000711 BR TEST? sRESTART TE 
561 014674 43; TST6 @RO sOI0 CSBS BRING STATE CHANGE ? 
014674 032710 000400 BIT ©BIT8,aRO 
562 014700 001007 BNE Ss sIF NE, YES 
563 014702 SAVCIR sSAVE CIR CONTENT 
014702 017700 007276 MOV acIR,RO sSAVE CIR CONTENT 
564 014706 SAVSMR sSAVE SMR CONTENT 
014706 017701 007274 MOV @SMR ,R1 sSAVE SMR CONTENT 
565 014712 ERROR 36. sNO STATE CHANGE TO CSBS 
014712 104444 TRAP 36. sERROR 36. 
014714 000000 -WORD 0O ERROR COUNT 


3 
566 014716 000677 BR TEST? sRESTART TEST 


TEC11-A OIAGNOSTIC 
TEST 9 TEST STATE CHGE 


014720 
014720 
014724 
014726 


015116 


042710 
104000 


052777 
005037 


032710 
001012 
005227 
000000 
001372 
017700 


017701 


017701 
104450 


000000 
000137 
013701 
00520 


1 
122711 
001410 


017700 
017701 
104451 
000000 


052777 


000400 
000004 007252 
014750 
010000 


007224 
007222 


000002 
015022 
000001 


007200 


007152 
007150 


014516 
024206 


000001 


007116 


007114 


014516 


100000 


015200 
000100 007060 


S$: 


6%: 


7%: 


98: 


108: 


1238: 


MACRO M1200 30-MAR-84 16:02 PAGE 42-1 
INTERRUPT WITH GTS AND sIc 


CLRE @RO 
BIC @61T8,GRO 
sc 
GTS 
BIS @BIT2, SMR 
CLR 7$ 
TST12 8©@RO 
BIT @61T12,aRO 
BNE 8s 
INC (PC)> 
-WORD 0O 
BNE 6% 
SAVCIR 
@cIR,RO 
SAVSMR 
MOV @SMR ,R1 
ERROR 537. 
TRAP 37. 
. WORD 
BR TEST9 
INC 
SCOPE 
CLRB @RO 
TCA 
BIS @6IT1,@SMR 
CLR 108 
CMPB #1,@R0 
BEQ 118 
INC (PC )> 
-WORD 0 
BNE 98 
SAVCIR 
Vv @cIR,RO 
SAVSMR 
MOV @SMR ,R1 
ERROR 40. 
TRAP 40. 
WORD O 
JMP TESTS 
MOV SMR ,R 
INC Ri 
CMPB @1,aR1 
BEQ 12$ 
SAVCIR 
v @cIR,RO 
SAVSMR 
MOV SMR ,R1 
ERROR 41. 
TRAP 41. 
-WORD O 
JMP TEST9 
SCOPE 
CLRB @RO 
MOV @BIT15,R5 
MOV #158,R4 
INTENS 
BIS oBIT6,aCIR 


C7 


sRESET STATE CHANGE 


sSCOPE LOOP MARKER 

sFORCE ILLEGAL MESSAGE 
3GO TO STAND BY 

sWAIT FOR ILLEGAL MESSAGE 


sSAVE CIR CONTENT 
sSAVE CIR CONTENT 


sNO ILLEGAL MESSAGE 
sERROR 37. 
—. COUNT 

sRESTART TESTS 

sPOINT TO CIR HIGH BYTE 

sSCOPE LOOP MARKER 

sRESET INTERRUPT CONDITIONS 

3 TAKE CONTROL ASYNC 

s TAKE CONTROL ASYNC 

sWAIT FOR CACS 

: 3 #eVO2EQ0es 


sSAVE CIR CONTENT 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
sSAVE SMR CONTENT 
sTCA DOES NOT PRODUCE STATE CHANGE 
sERROR 40. 
COUNT 


sERROR 
sRESTART TESTS 
sGET ADORESS OF SMR 
sADORESS HIGH ats OF SMR 


sSAVE CIR CONTENT 

sSAVE SMR CONTEN 

sSAVE SMR CONTENT! | 

3TCA WITH CSBS S NOT PRODUCE CACS 
sERROR 44. 
sERROR wees 

sRESTART Re 

sSCOPE LOOP MARK 

IRESET INTERRUPT. CONDITIONS 

sSETUP INTERRUPT MASK 

sSETUP INTERRUPT RETURN ADDRESS 

sENABLE IEC INTERRUPT 

sENABLE INTERRUPT IN IEC-1IA 


SEQ 80 


017701 
104452 
000000 


000137 
103004 


017701 
017702 
104454 
000000 
000137 


032777 
001012 


017700 
017701 
017702 
104455 
000000 
000137 
052777 


TT; 


FEGH5* PERPMOPATE cre ata es 


177776 
007050 


024216 007050 
015150 


007032 
007020 
007016 


014516 


014516 
000004 006766 


015234 
000012 


006740 
006 736 
006736 


014516 
004000 006712 


006704 
006702 
006702 


014516 
000040 006656 


138: 
14%; 


158: 


168%: 


178%: 


188; 


19%: 


20%: 


D7 


gh aers 
AVCIR 
MOV @cIR,RO 
MOvB TALKER ,@IOR 
CLR 148 
INC (PC)+ 
: t+) 
138 
SAVIOR 
Vv @IOR ,R2 
SAVCIR 
acIR,RO 
SAVSMR 
MOV @SMR RI 
ERROR 42. 
TRAP 42. 
-WORD 0 
JMP TEST9 
Bcc 168 
ERROR 43. 
TRAP 43. 
WORD 0 
JP TESTS 
GTS 
BIS OB IT2,8SMR 
CLR 188 
CMPB #12,8R1 
BEQ 198 
INC (PC)- 
-WORD O 
BNE 178 
SAVCIR 
Vv acIR,RO 
SAVSMR 
Vv @SMR ,R1 
SAVIOR 
MOV @IOR ,R2 
ERROR 44, 
TRAP 44. 
-WORD O 
JMP TEST9 
TST12 §©a@CIR 
BIT @61T11,@CIR 
BNE 20% 
SAVCIR 
v acIR,RO 
SAVSMR 
Vv @SMR ,R1 
SAVIOR 
MOV @IOR,R2 
ERROR 45. 
TRAP 4s. 
-WORD O 
JMP TESTS 
MCLEAR 
BIS oBITS,acIR 
LOOP -1,LOPT6 


sALLOW ysren — 
CONTE 


sSAVE CIR 
sSAVE CIR CONTENT 
sADDRESS TALKER ! 


sWAIT FOR INTERRUPT 


e 

sSAVE IOR CONTENT 
sSAVE IOR CONTENT 
sSAVE CIR CONTENT 
sSAVE CIR CONTENT 


TENT 
sNO INTERRUPT "le TALKER ADDRESSING 
COUNT 
sIF CC, INTERRUPT OK 


sERROR 4 
sERROR 
sRESTART TESTS 


sILLEGAL INTERRUPT 
sERROR 43, 


sERROR COUNT 


sRESTART TEST 9 


sGOTO STANDBY STATE 


sGO TO STAND BY 


sWAIT FOR CSBS AND TACS 


sSAVE CIR CONTENT 
sSAVE CIR CONTENT 


sSAVE IOR CONTENT 
sSAVE IOR CONTENT 
sNO CSB8S AND TACS 

sERROR 44, 


sERROR 
sRESTART TESTS 
3IS NO LAC SET ? 


3,IF NE, YES 
;SAVE CIR CONTENT 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
sSAVE SMR CONTENT 
sSAVE IOR CONTENT 
sSAVE IOR CONTENT 
:"NO LAC” NOT SET 
sERROR 45. 


sERROR C 
sRESTART SUBTEST 
sRESET IEC-11A 


sEXECUTE MASTER CLEAR 


OUNT 


SEQ 81 


E7/ 


HESH'S" QESPRELEE coce TARERAUHT GREGG BEC? PACE 42-8 


643 


015376 


015330 


014552 
177777 


024222 


011670 


023274 
005654 


015330 


643%; 


@vECTOR 


sCOUNT LOOPS 


’ 
sIS 648% ZERO ? 
5 


b 

sSETUP NEW LOOP COUNT 

sREMOVE VECTOR ’ eeVO3EO2Zee 
SAVE @VECTOR ONTO STACK 
sRESET OVECTOR VECTOR 

sEND OF SUBTEST 

sPRINTOUT OR NOT? 


sSAVE OMTEG ONTO STACK 
s INITIATE PRINTOUT 
sRETURN TO CALLER 


SEQ 82 


FESH 8 


646 
647 


F7 


QEAGNBS TEC reancr ACRE P00, pSO:MAR-84 16:02 PAGE 45 


TEST 10 seer DATA TRANSFER WITH INTERRUPT 
NT, 00 sSET 


017701 
104456 


000000 
000137 
042777 


052777 


032777 
001774 


024222 
021334 
000000 


011670 


023310 
005654 


006472 


006446 


006432 


006374 
006370 
006360 


TESTI0: § 


LOPT?7: 


13%: 


1%; 


2s: 


38: 


4%: 


58: 


6%: 


Gvetton’ ore 
@VECTOR 


@IECINT, -(SP) 


rae -(SP) 
MSGFLG 
LOPT7 

MT7S 
omT7s, -(SP) 
$..WRT 
BITS,acIR 
#BITO,acIR 
#BIT6,3SMR 
aciIr 
BIT8,aCIR 
138 

aciIr 
BITS,aCIR 
aciIrR 
ne 
acIr 
BIT8,aCIR 
#BIT2,38SMR 


&@SMR 
@BIT9,@SMR 
is 

oBITO, SMR 
3$ 


aciIr 
BIT12,aCIR 
43 

(PC )> 

0 


TEST10 
#177400,aCIR 


OB IT1,@SMR 
acir 
oBITS,acIR 
S$ 

aSMR 


VECTOR 3 #eVO3EO2ee 


s SAVE evECTOR ONTO STACK 
sSAVE @IECINT ONTO STACK 
sSAVE #0 ONTO STACK 
y mat VECTOR 
:PRINTOUT OR 


sSTART MESSAGE TEST 10 
sSAVE OMT7S ONTO STACK 
sINITIATE PRINTOUT 
sMASTER CLEAR 
sEXECUTE MASTER CLEAR 
sSET CONTROLLER ACTIVE STATE 
sSET SACS BIT IN CIR 
sSEND INTERFACE CLEAR 
sSENO INTERFACE CLEAR 
sWAIT FOR STATE CHANGE 


3 
sRESET INTERRUPT CONDITIONS 


sWAIT FOR SIAS END s**eVO1LEOLee 
5 s*eVO1LEOLes 
sRESET STATE CHANGE s*eVO1lEOLee 


sGO TO STANDBY STATE 
sGO TO STAND BY 

sSET SCOPE LOOP MARKER 
sWAIT FOR CSBS 


3 
sTAKE CONTROL SYNCR. 


° 
sWAIT FOR ILLEGAL MESSAGE 


sSAVE CIR CONTENT 
3SAVE CIR CONTENT 
3SAVE SMR CONTENT 
sSAVE SMR CONTENT 
sNO ILLEGAL MESSAGE 
sERROR 46. 


sERROR C 
sRESTART SUBTEST 
sRESET INTERRUPT CONDITIONS 
3 TAKE CONTROL ASYNCR. 
3 TAKE CONTROL ASYNC 
sWAIT FOR STATE CHANGE 


: 
sCACS SET ? 


SEQ 83 


FESt"i8 


G7 


PESPNBRTAS rransrERRP Til FR Penney O84 16:02 PAGE 43-1 


017701 
017702 
104462 
000000 


017701 
017702 
104465 
000000 
000137 
052777 


000400 006352 


177400 006336 
100000 
015740 
006322 
000100 006314 
177776 


024220 006310 
015710 


177400 006222 


7$: 
83: 


93: 


108: 


12%: 


14%; 


BIT 
BE 


BITS, @SMR 
6% 


#177400,aCIR 
$BIT15,R5 
9% ,R4 
acIR,RO 
BIT6,aCIR 
OPS 
LISTNR,@IOR 
83 

CPC Yo 

te) 

7$ 

@acIR,RO 
OSMR .R1 


S@IOR ,R2 


TEST10 
#177400,acIR 
@BIT15,R5 
0148,R4 
acIR,RO 
@BIT6,aCIR 
BePS 

TALKER ,@IOR 
12s 

(PC )+ 

° 

11% 

acIR,RO 
Q@SMR ,R1 
@IOR,R2 

53. 

53. 

° 

TEST10 


oBIT2,@SMR 


iRESET INTERRUPT BIT. 

sSETUP INTERRUPT MASK 

sSETUP INTERRUPT RETURN ADDRESS 
sSAVE CIR CONTENT 


sSENOD LISTENER ADORESS 


6 
sWAIT FOR INTERRUPT 
3 


‘ 

sSAVE CIR CONTENT 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
sSAVE SMR CONTENT 
sSAVE IOR CONTENT 
sSAVE IOR CONTENT 


sNO INTERRUPT TO LISTENER ADDRESSING 


‘e 
RROR COUNT 
sRESTART. SUBTEST 
sIF CC, INTERRUPT OK 
sILLEGAL INTERRUPT 
sERROR 51 


sERROR 
sRESTART SUBTEST 
3SET SCOPE LOOP MARKER 
sCLEAR INTERRUPT BITS 


sSAVE CIR CONTENT 

sSAVE CIR CONTENT 

sENABLE IEC INTERRUPT 
sENABLE INTERRUPT IN IEC-11A 
sENABLE SYSTEM INTERRUPTS 
sADDRESS TALKER AGAIN 

sWAIT FOR INTERRUPT 

° 

é 


3 

sSAVE CIR CONTENT 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
sSAVE SMR CONTENT 
sSAVE IOR CONTENT 
sSAVE IOR CONTENT 


sNO INTERRUPT TO TALKER ADDRESSING 


sERROR 53. 

sERROR COUNT 
sRESTART SUBTEST 
sGOTO STANDBY STATE 
sGO TO STAND Br 


SEQ 84 


H7 


FESHi8 PECPNBREAS reansrPR DP rH ER Pene yr 84 16:02 PAGE 45-2 


719 


720 
721 


722 
723 


724 


753 


016062 
016062 


032777 
001774 


032777 
001012 


017700 
017701 
017702 
104464 


000000 
000137 
112777 


032777 
001774 


042777 
042777 
105377 
005227 
000000 
001375 


032777 
001412 


017700 
017701 
017702 


017701 
017700 
104467 
000000 
000137 
032777 


001000 


010000 


0060 76 
006074 
006074 


015400 
177777 


100000 


100000 


000400 
006026 


100000 


005776 
005774 
005774 


015400 
005 760 
000377 


005736 
005730 


015400 
100000 


006116 


006 106 


006024 


005712 


158: 


188: 


19%: 


203: 


TsT9 
BIT 


BEQ 
TsTi2 
BIT 


TEST10 
#-1,@I0R 


acIR 
#61T15,aCIR 
17$ 

acIR 
@6IT15,acIR 
ecIR 
@B1T8,8CIR 
@IOR 

(PC )> 

te) 

18% 


aciIR 
@81T15,aCIR 
198 


@cIR,RO 
@SMR RI 
@IOR ,R2 
54. 

54. 

t] 
TEST10 
@IOR,R2 
R2 
R2,0377 
20% 

R2 

@SMR ,R1 
acIR,RO 
55. 

55. 

° 
TESTI1O 
aciIRr 
oBIT15,acIR 


sWAIT FOR CSBS 


‘ 
sLACS SET ? 


sIF €Q, NO 
sSAVE CIR CONTENT 


sSAVE IOR CONTENT 
sNO LACS 
sERROR S2. 
sERROR COUNT 
sRESTART SUBTEST 
sSEND A DATA BrTE 
sOATA ACCEPTED ? 


sIF EQ, WAIT 
sRESET DATA ACCEPTED 


sRESET STATE CHANGE 


;SEND NEXT DATA BrTE 
sWAIT A SHORT TIME 
3 


: 
sDATA ACCEPTED ? 
;IF EQ, NO 


sSAVE CIR CONTENT 
sSAVE CIR CONTENT 


sSAVE IOR CONTENT 
sSAVE IOR CONTENT 


s*eVOlEO2ee 


sDATA ACCEPTED TO SECOND DATA BYTE 


sERROR 54. 
sERROR COUNT 
sRESTART SUBTEST 
3sGET IOR CONTENT 
sSAVE IOR CONTENT 


; 
sDATA OK ? 
sIF EQ, YES 


sNO, REBUILD DATA PATTERN READ 


sSAVE SMR CONTENT 
sSAVE SMR CONTENT 
sSAVE CIR CONTENT 
sSAVE CIR CONTENT 


sDATA CHECK ON IEC TALKER OR LISTENER 


sERROR 55. 
sERROR COUNT 
sRESTART SUBTEST 


sSECOND “DATA ACCEPTED’ 


> 
. 


SEQ 85 


FESH iS PESPNBREA reansr PRES tl EOP eRe O4 16:02 PAGE 45-5 


754 geeet 


01627 


016350 
016352 


017700 
017701 
104471 
000000 
000137 


005704 
005702 
005 702 


21s: 


218 
@cIR,RO 
@SMR RI 
@IOR,R2 
sé. 

S56. 

ri) 
TEST10 
@IOR,R2 
R2 
0376,R2 
TSTLOA 
R2 
@CIR,RO 
@SMR RI 
57. 

57. 

ri) 
TESTIO 


17 


sIF NE, YES 

:SAVE CIR CONTENT 

sSAVE CIR CONTENT 

sSAVE SMR CONTENT 

sSAVE SMR CONTENT 

sSAVE IOR CONTENT 

sSAVE IOR CONTENT 

sNO SECOND “DATA ACCEPTED™ 
| ° 

sERROR COUNT 

;RESTART SUBTEST 

:GET SECONFD DATA @rTE 

:SAVE IOR CONTENT 


3 
sIS SECOND DATA BYTE OK ? ;eeVO1EO2ee 
sIF EQ, YES 

sNO, REBUILD — READ 


sDATA CHECK ON SECOND BYTE 
sERROR 57. 
sERROR COUNT 
sRESTART SUBTEST 


SEQ 9% 


J7 


IECi1-A DIAGNOSTIC MACRO M1200 30-MAR-84 16:02 PAGE 44 SEQ 87 
TEST 10A -- RANDOM TALKER AND LISTENER DATA TEST 
77 .SBTTL TEST 10A -- RANDOM TALKER AND LISTENER DATA TEST 
771 ie 
772 ‘ 
773 ; THIS TEST CNA NOT BE CALLED SEPARATELY, DUE TO THE NECESSARY 
73 ; SETUP TO BRING THE BUS INTO THIS STATE. 
é 
776 ; 
777 -ENABL LSB 
778 016356 005037 016604 TSTIOA: CLR RANMOD sDISABLE RANDOM MODE 
779 016362 005046 CLR -( SP) sCLEAR DATA BUFFER 
780 016364 005237 024204 INC CIR sADDRESS CIR HIGH BYTE 
761 016370 105077 005610 CLRB acIR sRESET INTERRUPT BITS 
762 016374 005337 024204 DEC CIR sREBVILD FULL CIR ADDRESS 
783 016400 104000 SCOPE sSET SCOPE LOOP MARKER 
784 016402 012705 100000 LOPT7A: MOV @BIT15,R5 sSETUP INTERRUPT MASK 
785 016406 012704 016474 MOV @3%,R4 sSETUP INTERRUPT RETURN ADDRESS 
786 016412 042777 177400 005564 BIC #177400, aCIR sRESET INTERRUPT BITS 
787 016420 INTENS sENABLE IEC INTERRUPT 
016420 052777 000100 005556 BIS *BIT6,aCIR sENABLE INTERRUPT IN IEC-11A 
788 016426 105037 177776 CLRB @OPS sENABLE SYSTEM INTERRUPT 
789 016432 011677 005554 MOV (SP), @I0R sSEND A DATA BYTE 
790 016436 005037 016444 CLR es sWAIT FOR INTERRUPT 
791 016442 005227 18; INC (PC)+ ; 
792 016444 000000 2s: -WORD O ; 
793 016446 001375 BNE is : 
794 016450 SAVIEC sSAVE ALL IEC REGISTERS 
016450 017700 005530 MOV acIR,RO sSAVE CIR CONTENT 
016454 017701 005526 MOV @SMR ,R1 sSAVE SMR CONTENT 
016460 017702 005526 MOV @IOR,R2 sSAVE IOR CONTENT 
795 016464 ERROR 60. sNO INTERRUPT TO DATA SENDING 
016464 104474 TRAP 60. sERROR 60. 
016466 000000 -WORD O sERROR COUNT 
796 016470 000137 015400 JMP TEST10 sRESTART TEST 
797 016474 103004 38: BCC Aas sIF CC, INTERRUPT OK 
798 016476 ERROR 61. sILLEGAL INTERRUPT TO DATA SENDING 
016476 104475 TRAP 61. sERROR 61. 
016500 000000 -WORD O sERROR COUNT 
799 016502 000137 015400 JMP TEST10 sRESTART TEST 
800 016506 017703 005500 4%; MOV @IOR,RS sREAD BACK DATA BrTE 
601 016512 105005 CLRB R3 sPREPARE DATA 
602 016514 000303 SWAB R 
803 016516 IF R3 EQ (SP) GOTO S$ : 
016516 020316 cmp R3,(SP) sCOMPARE R3 AND (SP) 
016520 001002 BNE .*6 ; 
016522 000137 016554 JMP S$ : 
804 016526 SAVIEC sSAVE ALL IEC REGISTERS 
016526 017700 005452 MOV acIR,RO sSAVE CIR CONTENT 
016532 017701 005450 MOV @SMR ,R1 sSAVE SMR CONTENT 
016536 017702 005450 MOV @IOR ,R2 sSAVE IOR CONTENT 
805 016542 011604 MOV (SP),R4 sSAVE ‘SHOULD BE ‘ VALUE 
806 016544 ERROR 62. sOATA CHECK ON IEC BUS 
016544 104476 TRAP 62. - RROR 62. 
016546 000000 -WORD O ERROR COUNT 
807 016550 000137 015400 JMP TEST10 :RESTART. TEST 
808 016554 S$: IF RANMOD NE @0 GOTO 6$ 


016554 005737 016604 TST RANMOD 31S RANMOD ZERO ? 
016560 001402 BEQ +6 H 


017010 


012716 


052777 
012677 
005037 


032777 
001015 
005227 
000000 
001371 


017700 
017701 
017702 
104477 
000000 
000137 


032777 
001012 


017700 
017701 
017702 


017701 
017702 


016606 


005340 


005322 


005260 


63%: 


78: 


9%: 


10$: 


KK 7 


6:02 PAGE 44-1 

st 

JMP 6$ ’ 

INC (SP) ;BUILD NEXT DATA PATTERN 
IF (SP) NE #400 GOTO LOPT7A 

CMP (SP), 0400 sCOMPARE (SP) AND #400 
BEQ 04 A 

BR LOPT7A 

MOV —s-«@-1, CPC)» :SWITCH TO RANDOM MODE 

. 0 sRANDOM MODE FLAG 

CALL RANDOM ;GET A RANDOM PATTERN IN RO 
MOV RO,(SP) sMOVE PATTERN ONTO STACK 
BIC #177400,(SP) sBVUILO A BYTE 

INC _— sLOOP 65536 TIMES 

. : 

BNE LOPT7A : 

CLR RANMOD s;SWITCH BACK TO NORMAL MODE 
MOV 222 ,(SP) sPREPARE LAST DATA PATTERN 
SET2 @CIR sINDICATE “LAST BYTE” 

BIS #6IT2,acIR 

MOV (SP)+,@IOR sLOAD IT 

CLR S sWAIT FOR “DATA ACCEPTED” 
TSTiS aciIr 8 

BIT #B81T15,8CIR 

BNE 95 4 

INC (PC )> 8 

. WORD 0 PF 

BNE 7$ : 

SAVIEC sSAVE ALL IEC ee 
MOV acIR,RO sSAVE CIR CONTENT 

MOV @SMR ,R1 sSAVE SMR CONTENT 

MOV @IOR ,R2 sSAVE IOR CONTENT 

ERROR 63. sNO DATA ACC WHEN SENDING LAST BYTE 
TRAP . 63. sERROR 63. 

. WORD 0 sERROR COUNT 

JMP TEST1O RESTART. TEST 

TST13 IR 3IS “END” SET ? 

BIT #B81T13,aCIR 

BNE 3IF NE, YES 

SAVIEC 3 SAVE ALL IEC REGISTERS 
MOV acIR,RO sSAVE CIR CONTENT 

MOV R1 sSAVE SMR CONTENT 

MOV @IOR ,R2 sSAVE IOR CONTENT 

ERROR 64. sNO “END” TO “LAST BYTE” 
TRAP 64. sERROR 64. 

. WORD 0 sERROR COUNT 

JMP TEST10 sRESTART TEST 

MOV @IOR RS sREAD BACK DATA BYTE 

CLRB R3 3 

WAB R3 sPREPARE FOR CHECK 

IF R3 EQ 6222 GOTO 118 ; 

CMP 3,@222 ;COMPARE R3 AND @222 

BNE *6 3 

JMP 118% Hy 

SAVIEC sSAVE ALL IEC REGISTERS 
MOV acIR,RO ;SAVE CIR CONTENT 

MOV OSMR ,R1 sSAVE SMR CONTENT 

MOV @IOR ,R2 sSAVE IOR CONTENT 

ERROR 65. sDATA CHECK ON “LAST BYTE” 


SEQ 88 


L/ 


1-A OF 11 M1200 30-MAR-84 16:02 PAGE 44-2 9 
Fee ee A eM eNO ISOM TALKER AND-CISTENCR DATA Test ses 
017010 104501 TRAP «6S, ERROR 65. 
017012 000000 .WORD 0 ERROR COUNT 
843 017014 000137 015400 MP TEST10 ;RESTART SUBTEST 
844 017020 11$:  MCLEAR MASTER CLEAR 
017020 052777 000040 005156 BIS oBITS,@CIR }EXECUTE MASTER CLEAR 
845 017026 TSTEND 7 ;END OF SUBTEST 7 
017026 005737 011670 TST MSGFLG ;PRINTOUT OR NOT? 
017032 001004 BNE 683 
017034 012746 023373 MOV @MTE7, -(SP) :SAVE @MTE7 ONTO STACK 
017040 004737 005654 CALL so 8. WRT ;INITIATE PRINTOUT 
017044 000207 68$: RETURN; ;RETURN TO CALLER 
846 .DSABL LSB 


: 


fESt! i? 


M7 


pI 1 MAR-84 16:02 PAGE 45 

Pee Foc rion OF cL TAS AND cLUNT te 

017046 005737 011670 TESTI1: 

017052 001004 one LOPTS 
017054 WRITE TBS 

017054 012746 023410 MOV oMT@S, -(SP) 
017060 004737 005654 CALL = $. . WRIT 
017064 104000 LopTs: SC 

017066 MCLEAR 

017066 052777 000040 005110 BIS @BITS,@CIR 
017074 SACS 

017074 052777 000001 005102 BIS @BIT0,@CIR 
017102 SIC 

017102 052777 000100 005076 BIS 0BIT6, @SMR 
017110 1s: TST13 @SMR 

017110 032777 020000 005070 BIT 0B1T13,@SMR 
017116 001374 BNE 18 

017120 042777 177400 005056 BIC @177400,@CIR 
017126 LIN 

017126 052777 000020 005052 IS 06114, aSMR 
017134 000240 NOP 

017136 000240 NOP 

017140 000240 NOP 

017142 GTS 

017142 052777 000004 005036 BIS ©B1T2,@SMR 
017150 2%: TST9  @SMR 
017150 032777 001000 005030 BIT 0B1T9, SMR 
017156 001774 BEQ 2$ 

017160 005037 017176 CLR as 

017164 38: TST12 © @SMR 

017164 032777 010000 005014 BIT 081112, @SMR 
017172 001015 BNE S$ 

017174 005227 INC (PC)+ 
017176 000000 4s: .WORD 0 

017200 001371 BNE 3$ 

017202 SAVIEC 

017202 017700 004776 v @CIR,RO 
017206 017701 004774 MOV @SMR:R1 
017212 017702 004774 MOV @IOR.R2 
017216 ERROR 66. 

017216 104502 TRAP 66. 

017220 .WORD 0 

017222 000137 017046 SMP TEST11 
017226 042777 177400 004750 53: BIC @177400,aCIR 
017234 TCA 

017234 052777 000002 004744 BIS OBIT1,@SMR 
017242 68: TST8 © aSMR 
017242 032777 000400 004736 BIT 08118, @SMR 
017250 001774 BEQ 6$ 

017252 GTS 

017252 052777 000004 004726 BIS ©B1T2,aSMR 
017260 005037 017276 CLR 8s 

017264 7$: TST12 © @SMR 

017264 032777 010000 004714 BIT 0B1T12,@SMR 
017272 001015 BNE 94 

017274 005227 INC (PC)+ 
017276 000000 8$: “WORD 0 

017300 001371 BNE 7$ 


SEQ 90 


Pt he TEST 11 -- TEST  UNeutou OF <LTN> AND <LUN> 
MSGFLG 


INTOUT OR NOT? 


sSTART MESSAGE TEST 11 
sSAVE @MT8S ONTO STACK 
INITIATE PRINTOUT 
sSET SC LOOP MARKER 
sMASTER CLEAR 
sEXECUTE MASTER CLEAR 
sSET CONTROLER ACTIVE 
sSET SACS BIT IN CIR 
sSEND INTERFACE CLEAR 
sSEND INTERFACE CLEAR 
sWAIT FOR SIAS OFF 


3 
sRESET INTERRUPT CONDITIONS 
sLISTEN !! 


sGOTO STAND By 
3GO TO STAND BY 
s;WAIT FOR CSBS 


. 
sWAIT FOR LACS 


sSAVE ALL IEC REGISTERS 
sSAVE CIR CONTENT 

sSAVE SMR CONTENT 

sSAVE IOR CONTENT 

sNO LACS TO LTN 


sERROR 66. 

sERROR COUNT 
8 
sRESET ALL INTERRUPT CONDITIONS 
:GO BACK TO CACS 


s+ TAKE CONTROL ASYNC 
sWAIT FOR CACS AGAIN 


e 

;TRY AGAIN TO GET LACS 
3GO TO STAND BY 

° 

a 


HEH it 


887 


OEE SY FUNC 


TION oF OTA 


017700 004676 
017701 
017702 004674 
104503 


000000 
000137 017046 
042777 


052777 000002 004644 


032777 000400 004636 
001774 


052777 000040 004536 


017450 


177777 017450 
011670 


023472 
005654 


118: 


128: 


663: 


30-MAR-84 16:02 PAGE 45-1 
<LUN> 


SAVIEC 


N7 


TESTi1 
#177400,aCIR 


@BIT1,@SMR 
@SMR 
“BITS, @SMR 
108 


@BITS,@SMR 


te) 
TEST11 


-1,LOPTS 
(PC )> 


66 
@MTEs, -( SP) 
$..WRT 


sSAVE IEC o_o 
SAVE 


ENT 
sNO LACS AFTER (LTN-GTS-TCA-GTS) 
RROR 67. 


sRESTART 


sRESET ALL —_— CONOI TIONS 


RROR COUNT 


s€ 
SUBTEST 


:GO BACK TO CAC 
; TAKE CONTROL ASYNC 
sWAIT FOR CACS 


;LOCAL UNLISTEN 


sGO AGAIN TO aes BY STATE 


sGO TO STAND 


sWAIT FOR STAND BY STATE 


; 
IS LACS 
sIF EQ, 


NO 
sSAVE ALL IEC —- 


STILL SET ? 


sSAVE CIR CON 
sSAVE SMR RonTene 
sSAVE IOR CONTENT 


sLACS STILL SET AFTER (LTN-GTS-TCA-LUN-GTS) 
RROR 70. 


;RESTART 


+ 
ERROR COUNT 
SUBTEST 


sMASTER CL 


EAR 
sEXECUTE MASTER CLEAR 


;COUNT LOOPS 


; 
;SETUP NEW LOOP COUNT 


sIS 64% ZERO ? 


é 
sPRINTOUT OR NOT? 


sSAVE @MTES ONTO STACK 
sINITIATE PRINTOUT 


sRETURN TO CALLER 


‘ 


8 


SEQ 91 


FES} 8 


DIAGNOSTIC 


017742 


005737 
001004 


012746 
004737 
104000 
052777 
052777 


032777 
001011 


017700 
017701 
017702 
104507 
000000 
000745 
042777 


032777 
001411 


017700 
017701 
017702 
104510 
000000 
000725 
104000 
052777 
052777 
052777 


032777 
001374 


052777 
013777 


032777 
001774 
042777 
013777 


032777 
001774 
042777 


011670 


023507 
005654 


000010 


020000 
000010 
024220 
100000 


177400 
024216 


100000 
177400 


004446 
004440 
004432 


004400 
004372 


004336 
004330 
004324 
004316 
004304 
004270 


004260 
004260 


004244 
004234 


TESTi2: 


LOPTS: 


18; 


2s: 


38; 


4%; 


5%: 


. SBTTL 
ist 


B8 
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- TEST FUNCTION OF Cel ocK DAC 


TEST 12 
MSGFLG 
LOPT9S 
MT9S 
@nTgs, -(SP) 
$..WRT 
@BITS,acIR 
@cIR 
= 
@BITS,@CIR 
is 


*BITS,acIR 
@B1ITO,acIR 
@B1T6,8SMR 
@SMR 
@81T13,aSMR 
3% 

acIR 
#81T3,aCIR 
LISTNR,@IOR 
acIR 
soeres. atm 


#177400,aCIR 


TALKER ,@IOR 
acIR 
@BIT15,8CIR 
S$ 


177400,aCIR 


-- TEST FUNCTION OF <BLOCK DAC> 


sPRINTOUT OR NOT? 


sSTART MESSAGE TEST 12 
sSAVE OMT 
wT hl ny PRINTOUT 
sSET SC LOOP MARKER 
sMASTER CLEAR 
sEXECUTE MASTER CLEAR 
sTRY TO SET <BLOCK DAC> 


sIS <BLOCK DAC> SET ? 


sSAVE ALL tec on 


sRESTART "SUBTEST 
sTRY TO RESET <BLOCK DAC> 


sIS <BLOCK DAC> RESET 


sIF EQ, YES 

sSAVE ALL IEC es 

sSAVE CIR CONTE 

i SAVE SMR CONTENT 

sSAVE IOR CONTENT 

3<BLOCK DAC> NOT RESET 
sERROR 72. 
sERROR COUNT 

sRESTART SUBTEST 

3sSET SCOPE LOOP MARKER 

sMASTER CLEAR 

sEXECUTE MASTER CLEAR 

3sSET CONTROLLER ACTIVE 

3SET SACS BIT IN CIR 

sSEND INTERFACE CLEAR 

3SEND INTERFACE CLEAR 

sWAIT FOR SIAS OFF 


é 
sSET <BLOCK DAC» 


sSEND LISTENER ADORESS 
sWAIT FOR <DATA ACCEPTED> 


}RESET ALL INTERRUPT CONDITIONS 
ADORESS 


sSEND TALKER 
sWAIT FOR <DATA ACCEPTED> 


é 
sRESET ALL INTERRUPT CONDITIONS 


9S ONTO STACK 


TECi1-A OIAGNOST 
TEST 12 -- TEST 


943 


020174 


Ic MACRO 1200 
FUNCTION OF <BLOCK DAC» 


052777 004230 
004222 


004210 


004174 
004170 


017510 
004130 


000303 

000333 
020124 
004100 


004076 
004076 


017510 
000040 


020134 


017526 
000024 


011670 
023565 
005654 


020134 


63; 


78: 


9%: 


108; 


65%: 


678: 


C8 
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GTS 
BIS @8IT2,GSMR 
TSTi2 @SMR 
BIT @81T12,@SMR 
BEQ 68 
BIC #177400,8CIR 
CLR RS 
MOV 06% ,R4 
INTENS 
BIS BIT6,SCIR 
CLR 
MOV 0333,9IOR 
INC ¢ ’ 
. t+) 

7$ 

98 
SAVIEC 
MOV acIR,RO 
MOV SSMR ,R1 
MOV SIOR ,R2 

RROR 73. 
TRAP 73. 
-WORD O 
JMP TESTi2 
MOV BIOR,RS 
3 
IF R3 EQ 333 GOTO 108 
CMP 3,03 
BNE .*6 
JMP 108% 
SAVIEC 
MOV acIR,RO 
MOV RL 
MOV SIOR,R2 
ERROR 74, 
TRAP 74. 
-WORD O 
JMP TEST1i2 
MCLEAR 
BIS BITS,acIR 
LOOP 20. ,LOPT9 
DEC (PC )> 
‘ 20. 
TsT 658 
BEQ .°6 
JMP LOPT9 
Vv #20. ,65% 

TSTENO 
TsT MSGFLG 
BNE 67% 
MOV OMTES, -C SP) 
CALL $. .WRT 
RETURN; 


SEQ 95 


sGOTO <STAND Br> STATE 
1GO TO STAND BY 
sWAIT FOR <LACS> 


iRESET ALL wim 


sSEND A DATA PATTERN 
sWAIT A SHORT TIME 
3 


8 

30K, NO INTERRUPT OCCURED 

sSAVE ALL IEC REGISTERS 

sSAVE CIR CONTENT 

sSAVE SMR CONTENT 

sSAVE IOR CONTENT 

s INTERRUPT WITH <BLOCK DAC> 
sERROR 73. 

sERROR COUNT 

sRESTART SUBTEST 

3sGET INPUT BUFFER CONTENT 

sPREPARE FOR CHECK 

8 


sCOMPARE RS AND 0335 
3 


F 
sSAVE ALL IEC REGISTERS 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
sSAVE IOR CONTENT 
sIEC DATA CHECK WITH <BLOCK DAC> 
sERROR 74, 
sERROR COUNT 
sRESTART SUBTEST 
sMASTER CLEAR 
sEXECUTE MASTER CLEAR 


sCOUNT LOOPS 


é 
sIS 658 ZERO ? 
3 


a 

sSETUP NEW LOOP COUNT 
sEND OF TEST 12 
sPRINTOUT OR NOT? 


sSAVE OMTES ONTO STACK 
sINITIATE PRINTOUT 
sRETURN TO CALLER 


IEC11-A DIAGNOST 
TEST 13 -- TEST 


970 
971 
972 
973 


974 
975 


976 


Ic 


005737 
001004 


012746 
004737 
104000 
052777 
052777 
052777 
032777 
001374 
042777 


052777 
005037 


032777 
001015 
005227 
000000 
001371 
017700 
017701 
017702 
104513 
000000 
000137 


032777 
001004 


104557 
000000 
000137 
052777 


032777 
001404 


104560 
000000 
000137 
042777 


032777 
001004 


104561 


011670 


023602 
005654 


020176 


000200 


D8 
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SPAS» 


003760 
003752 
003746 
003740 
003726 
003720 


003706 


003644 


003624 
003616 


003576 
003570 


MACRO M1200 
FUNCTION OF <RSV>,<SRQ> AND «< 


TEST13; 


LOPT10: 


18%; 


2s; 


3$: 


4%: 


41%: 


42%: 


.SBTTL TEST 15 -- TEST  Watntou OF <RSV>,<SRQ> AND <SPAS> 


TsT 
BNE 
WRITE 
MOV 


MSGFLG 
LOPT10 
MT10S 
ales fe -(SP) 
$..WRT 
@B8ITS,acIR 
@8ITO,acIR 
eBIT6,3SMR 
8SMR 

> etnias 
#177400,aCIR 
ecIR 
@BIT4,aCIR 
3$ 

acIR 
@6IT14,8CIR 
4s 

CPC )> 

0 

2s 
ecIR, ot 
ron A 


111. 
i11. 


O° 

TEST13 
@BIT10,aCIR 
acIR 
oBIT7,aCcIR 
42% 

lle. 

112. 

0 

TEST13 

acIR 
#6IT10,acIR 
acIR 
oBIT7,acIR 
43% 


115. 
113. 


PRINTOUT OR NOT? 


sSTART MESSAGE adie 13 

sSAVE @MT10S ONTO STACK 
pINITIATE PRINTOUT 
sSCOPE LOOP MARKER 

sMASTER CLEAR 

sEXECUTE MASTER CLEAR 

sSET CONTROLLER ACTIVE 


sWAIT FOR SIAS TO GO OFF 


t 
sRESET ALL INTERRUPT CONDITIONS 
3SET <RSV> 


sWAIT FOR <SRQ> 


sSAVE ALL IEC — 
sSAVE CIR CON 

3sSAVE SMR CONTENT 

i SAVE TOR CONTENT 

3NO <SRQ> TO <RSV> 


sERROR 75. 
sERROR COUNT 
RESTART’ TESTPART 
sSEE IF INT BIT SET 3 *eVO2EOOees 
;BRANCH IF SET 3 *eVO2ZE00ee 
sINT BIT NOT SET AT SRQ ; *seVO2EOOss 
sERROR 111. 
sERROR COUNT 
3 *eVO2ZEOOes 
;SET SRQ INT INHIBIT s *eVO2E00ee 
sSET INHIBIT SRQ INTERRUPT 
s INTERRUPT BIT SET? 3 *eVO2EQ0es 
sBRANCH IF NOT 3 *eVO2ZE00ses 
sINT BIT NOT CLEAR 3 seVO2E00es 
sERROR 112. 
sERROR COUNT 
3 *eVO2EQOse 
sRESET SRQ INT INHIBIT 3; eeVO2EOOes 
sLOOK FOR INT BIT s *eVO2ZEQOes 
sBRANCH IF SET AGAIN 3 *eVO2ZEQOes 
sBIT 7 STILL CLEAR 3 *eVO2ZEQOes 


sERROR 113. 


SEQ 94 


E8 


FESH iS OTPROT FGncrion"OF cReYS oc SRS AND Sepheso? PAGE 47-1 


000000 
000137 
013777 


032777 
001774 
042777 
013777 


032777 
001774 
042777 
012777 


032777 
001774 
042777 


052777 
005037 


032777 
001015 
005227 
000000 
001371 
017700 
017701 
017702 
104514 
00090 
0001357 
042777 
012777 


032777 
001774 


017702 
000302 


017701 
017702 


104515 
000000 
000137 
032777 


020176 
024220 


100000 


177400 
024216 


100000 
177400 
000030 


003426 
003424 


020176 
177400 
000100 


100000 


003364 


000100 
020670 
003334 


003332 
003332 


020176 
040000 


003556 
003542 


003532 
003532 


003516 


003506 
003506 


003472 
003462 
003456 


003444 


003400 
003400 


003364 


003306 


433: 
S$: 


68%: 


78: 


98: 


108: 
118%: 


12%; 


-WORDB O 
JMP TEST13 
LISTNR,@IOR 

TSTi5 a@cIR 
BIT 6IT15,aCIR 
BEQ 53 
BIC #177400,aCIR 
MOV TALKER ,@IOR 
TST15 a@cIR 
BIT #6IT15,.acIR 
BEQ 63% 
BIC #177400,aCIR 
MOV ©30,8I0R 
TST1iS @CIR 
BIT #681T15,a8CIR 
BEQ 7% 
BIC #177400,aCIR 
GTs 
BIS #BIT2,3SMR 
CLR 9s 
TST1S5 @SMR 
BIT 68IT15,8SMR 
BNE 108 
INC CPC )> 
-WORD O 
BNE 8s 
SAVIEC 
MOV acIR,RO 
MOV QSMR,R1 
MOV SIOR,R2 
ERROR . 
jTRap 76. 
-WORD O 
JMP TEST13 
BIC #177400,aCcIR 
MOV #BIT6,8I0R 
TST15 acIR 
BIT #B1IT15,aCIR 
BEQ 11% 
SAVIOR 

Vv SIOR,R2 
CLRB ~ | 
SWAB 
IF Ro ea. oBIT6 =e 12s 
CMP 2.%8 
BNE .*6 
JMP 128 
SAVIEC 
MOV acIR,RO 
MOV @SMR ,R1 
MOV SIOR,R2 
ERROR 77. 
TRAP 77. 
-WORD O 
JMP TEST13 
TST14 §©@cIR 
BIT #B811T14,aCIR 


sERROR COUNT 
s *eVO2E00es 


sSEND LISTENER ADDRESS 
sWAIT FOR <DATA ACCEPTED> 


iRESET ALL INTERRUPT CONDITIONS 
sSEND TALKER ADORESS 
sWAIT FOR <DATA ACCEPTED> 


i 

sRESET ALL INTERRUPT CONDITIONS 
sSENO <SERIAL POLL ENABLE> 
sWAIT FOR <DATA ACCEPTED> 


3 

sRESET ALL INTERRUPT CONDITIONS 
sGOTO <STAND BY> STATE 

sGO TO STAND BY 


3 
sWAIT FOR <SPAS> 


i 
sSAVE ALL IEC REGISTERS 


sSAVE IOR CONTENT 

s NO <SPAS> TO <SPE> 
sERROR 76. 
sERROR COUNT 

sRESTART SUBTEST 

sRESET ALL INTERRUPT CONDITIONS 

3SEND STATUS BYTE 

sWAIT FOR <DATA ACCEPTED> 


é 

sSAVE IOR CONTENT 

sSAVE IOR CONTENT 

sPREPARE FOR DATA CHECK 

a 

é 
sCOMPARE R2 AND OBITE6 
é 


3 
sSAVE ALL IEC REGISTERS 
sSAVE CIR CONTENT 
sSAVE SMR eevee 
sSAVE IOR CONTE 


sIEC DATA CHECK "ON STATUS BYTE SENDING 


TUROn 
RROR COUNT 
sRESTART. Test 
sIS <SRQ> OFF ? 


SEQ 95 


FESH iS OT*FEST Foc 


1039 020676 
1040 020700 


1062 021074 


021112 


012777 


032777 
001774 


052777 
005037 


032777 
001015 
005227 
000000 
001371 
017700 
017701 
017702 


104545 
000000 


000137 


093300 
003276 
003276 


020176 
177400 


000004 
021012 


021052 


020214 
177777 


011670 


023674 
005654 


003252 
003246 
003240 
003234 
003220 


003212 


003200 


003134 


021052 


13$: 


148; 


158: 


168: 


17%: 


188: 


65$: 


67%: 


F8 


TON OF Ones sRES MAS Sephe:0% «PAGE 47-2 


0) 
TEST13 
#177400,8CIR 


oBIT1,@SMR 
aSMR 

@BITS, SMR 
14s 
#31,@I0R 
aciIR 
@BIT15,@CIR 
15% 
@81T2,8SMR 
17% 


8SMR 
ee 
_— 


ce) 
TEST13 


a 


6 
@MTE10O, -(SP) 
$..WRT 


sIF EQ, Y 


ES 
sSAVE ALL IEC REGSITERS 


i SAVE CIR CONTENT 


E 
3<SRQ> NOT OFF AFTER STATUS BYTE SENDING 
sERROR 100 


RROR COUNT 


sE 
sRESTART TEST 


sRESET ALL INTERRUPT CONDITIONS 


sENTER <CACS> 


sTAKE CONTROL ASYNC 


sWAIT FOR <CACS 


$ 
sSEND <SERIAL POLL DISABLE> 
sWAIT FOR <DATA ACCEPTED> 


VTRY TO GET — WHEN ENTERING <CSBS> 


- TO STAND 6 


> 


;WAIT FOR <TACS> TO BECOME TRUE 


iSAVE ALL IEC — 


sSAVE CIR CONTE 


sSAVE SMR CONTENT 
sSAVE IOR CONTENT 


3NO <TACS> AFTER <SPD> 


sRESTART *SUBTES 
sMASTER CLEAR 


sEXECUTE MASTER CLEAR 


sCOUNT LOOPS 
: 


sIS 65¢ ZERO ? 


3 
sSETUP NEW LOOP COUNT 


sEND OF TEST 13 
sPRINTOUT OR NO 


T 


1? 


sSAVE OMTE10 ONTO STACK 


INITIATE PRINTOUT 


3 
sRETURN TO CALL 


SEQ 9% 


1064 

1065 021114 
1066 021120 
1067 021122 


1069 Oatisa 
1070 021142 
1071 021150 
1072 021156 


1073 021164 
1074 021166 


1075 021174 


1076 021202 
1077 021204 


1078 021220 


1079 021224 
1080 021230 
1081 021236 


1082 021244 
1083 021246 


1084 021262 


1085 021266 


1086 021272 


1087 021314 


021326 
021332 


005737 
001004 


012746 
004737 
104000 
052777 
052777 
052777 


032777 
001374 


052777 


032777 
001012 


017700 
017701 
017702 
104546 
000000 
000137 
042777 


032777 
001412 


017700 
017701 
017702 
104547 


000000 
000137 


011670 


023711 
005654 


021274 


177777 
011670 


023752 
005654 


003042 
003034 
003030 
003022 


003012 
003004 


002750 
002742 


021274 


TESTI4; 7 


LOPT11: 


3%: 


18: 


2s: 


PEEP IS OTACHP ET Tho grr AGRO 1200 S0-MAR-84 16:02 PAGE 48 GS 


TEST 14 --- TEST RPP BIT R/W 
MSGFLG 


LOPTi1 

MT11S 
@MT11S, -CSP) 
$. .WRT 
*BITS,acIR 
#BITO,aCcIR 
eB IT6, SMR 
aSMR 


@B1T13,a8SMR 
23 


a@sMR 
BITS, 8SMR 
@SMR 
——— 


OMTE11, -(SP) 
$..WRT 


sPRINTOUT OR NOT? 


sSTART MESSAGE TEST 14 
sSAVE OMT11S ONTO STACK 
pINITIATE PRINTOUT 
sSCOPE LOOP MARKER 
sMASTER CLEAR 
sEXECUTE MASTER CLEAR 
sSET <CONTROLLER Spies STATE 
sSET SACS BIT IN CIR 
3sSEND <INTERFACE CLEAR> 
3SENO INTERFACE CLEAR 
sWAIT FOR <SIAS TO GO OFF 


: 
sTRY TO SET <RPP> 
sIS <RPP> SET ? 


3IF NE, YES 
sSAVE ALL IEC- a 
sSAVE CIR CONTENT 
sSAVE SMR CONTENT 
; SAVE IOR CONTENT 
3<RPP> NOT SET 

sERROR 102. 


sERROR COUNT 
sRESTART. TEST 
sTRY TO RESET <RPP> 


sIS BIT RESET ? 


sIF EQ, YES 
sSAVE ALL IEC- —_—, 
sSAVE CIR CONTE 
sSAVE SMR CONTENT 
sSAVE IOR CONTENT 
3<RPP> NOT RESET 

sERROR 103. 

sERROR COUNT 

RESTART TEST 


sCOUNT LOOPS 


; 
sIS 648 ZERO ? 
: 


i 
sSETUP NEW LOOP COUNT 
6 
sPRINTOUT OR NOT? 
sSAVE @MTE11 ONTO STACK 


sINITIATE PRINTOUT 
sRETURN TO CALLER 


SEQ 97 


FEE EN TeRAGBY RAAB en 


1089 
1090 


1091 


010046 
010146 
010246 


017700 
017701 
017702 

300 


H8 
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000012 


000010 


18: 


TOUT: 


18: 


SBTTL IEC-INTERRUPT HANDLER 
IECINT: PUSH be caiNas 


RO, -( SP) 
Ri, -(SP) 
Re, -(SP) 


“w 


v2°s 


ARADA 222 
SS 
wew Dw 


s 
% 


sSAVE RO ONTO STACK 
sSAVE R1 ONTO STACK 
sSAVE R2 ONTO STACK 


sSAVE CIR CONTENT 

sSAVE SMR CONTENT 

sSAVE IOR CONTENT 

sBRING INTERRUPT STATUS INTO LOW BYTE 
sMASK OUT BITS 9 AND 10 OF CIR 

sBRING INTERRUPT MASK INTO LOW BYTE 
sASSUME ALL IS OK 


sSUSPECTED INTERRUPT ? 

sIF EQ, YES 

sREBUILD SAVED CIR CONTENT 

sREBUILD ‘SHOULD BE’ CONTENT 

sREBUILD STACK POINTER 

sREBVILD RO,R1 AND R2  ;eeVOSEOlLes 
sRESTORE RO FROM STACK 
sRESTORE R1 ROM STACK 
sRESTORE R2 FROM STACK 

sSET ERROR INDICATOR seevOSEOlLee 

RE TURN 


3 
sBUILD RETURN ADDRESS 
sPREPARE TO CLEAR INTERRUPT BITS 


‘ 
:CLEAR INTERRUPT BITS 


sRESTORE R2 FROM STACK 

sRESTORE R1 FROM STACK 

sRESTORE RO FROM STACK 
sRETURN FROM INTERRUPT 

s INCREASE SP BY 4 


3 
sSAVE OMNOAV ONTO STACK 
sINITIATE PRINTOUT 


‘ 
sSAVE RO ONTO STACK 


; 
sENTER DUMP ROUTINE 
; 


18 
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SUBTEST ADDRESS TABLE 


1118 -SBTTL SUBTEST ADDRESS TABLE 


022167 


024070 
024166 


SBTTL 
NLIST 
MES1: ASCII 
-ASCII 
EVEN 
M1: .ASCII 
ASCII 
.EVEN 
MES2: ASCII 
ASCII 
EVEN 
MESS -ASCII 
-ASCII 
.EVEN 
MESS: ASCII 
.EVEN 
SLON: .ASCII 
.ASCII 
CLON: .ASCI1 
ASCII 
MT1S: .ASCII 
MTEL: ASCII 
MT2S: ASCII 
MTE2: ASCII 
MT2AS: .ASCII 
MTEQA; ASCII 
MT3S: -ASCII 
MTES: .ASCII 
MT3AS: .ASCII 


MT4S: .ASCII 
MTE4: ASCII 
MTSS: ASCII 
MTES: ASCII 
MTSAS: .ASCII 
MTESA: ASCII 
MT6S: -ASCII 
MTE6: ASCII 
MT7S: -ASCII 
MTE?: ASCII 
MT8S: ASCII 
MTES ASCII 
MT9S: ASCII 
MTES .ASCII 
MTiOS: ASCII 
MTE10: ASCII 
MT11S: ASCII 
MTE11: ASCII 
MNOAV : ASCII 
MESNEX: .ASCITI 
VEN 
TPMSG: ASCII 
VEN 
MESEND: .ASCII 
EVEN 
LIST 


J8 


SEQ 100 
— 

/TENTER FIRST REGISTER ADDRESS OF IEC11-A/ 

/(CDEFAULT IS 160010))/ 


/(IEC11-A BUS CONTROLLER BASIC TESTS/ 
/(AC-TBB3A-MC )/ 


/TENTER VECTOR ADDRESS OF IEC11-A/ 
/(COEFAULT IS 270))/ 


/TENTER IEC BUS ADDRESS OF IEC11-A/ 
/(COEFAULT IS 35))/ 


/( VECTOR INPUT IS NOT EQUAL TO CONTENTS OF vSR)/ 
/( (SET LON SWITCH ON IEC11-A TO POS.1 CACTIVE)/ 
/( TYPE <CR> WHEN READY[ )/ 
/((SET LON SWITCH ON IEC11-A TO POS.2 C INACTIVE )/ 
/( TYPE <CR> WHEN READY[ ]/ 
/((START TEST 1: EXECUTE MASTER CLEAR])/ 
/TEND TEST 1)/ 
/(C(START TEST 2: TEST SACS BIT IN CIR)/ 
: TEST CIR BIT 10 INHIBIT SRQ INTERRUPT )/ 
/UCSTART ae ¢ Fe TEST SACS SIC SIAS ILLMSG CACS)/ 
: TEST INT ENB)/ 
TEST INTERRUPT WITH STATE CHGE)/ 
: TEST STATE CHGE INTERRUPT WITH SRAS)/ 
/(C(START TEST 8: IOR DATA TEST)/ 
TEND TEST 8)/ 
/( (START TEST 9: TEST STATE CHGE INTERRUPT WITH GTS AND SIC)/ 
TEND TEST 9)/ 
/({START TEST 10: TEST DATA TRANSFER WITH INTERRUPT )/ 
“(TEND TEST 10)/ 
/( (START TEST 11: TEST FUNCTION OF <LTN> AND <LUN>)/ 
7C(END TEST 11)/ 
/((START TEST 12: TEST FUNCTION OF <BLOCK DAC>)/ 
TEST FUNCTION OF <RSV>,<SRQ>, 
TEST RPP BIT RW)/ 
“(ENO TEST 14)/ 
/(( THIS ADDRESS IS NOT AVAILABLE ON UNIBUS: )/ 
/(( NEXT TEST TO RUN?)/ 
/({00 YOU WANT A PRINTOUT OF START,END TEST MESSAGES?(1 OR N))/ 
/(CEND OF TEST)Z 


BEX 


AND <SPAS>]/ 


K8 
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1178 -SBTTL CONSTANTS AND PARAMETERS 

1179 024..4 160010 CIR: -WORD 160010 ;ADDORESS OF IEC CONTROL AND INTERRUPT REGISTER 
1180 024206 160012 SMR; -WORD 160012 ,ADDRESS OF IEC STATUS AND MESSAGE REGISTER 
1181 024210 160015 TORHB: .WORD 160015 ;IOR HIGH-BYTE ADORESS DEFAULT VALUE 

1182 024212 160014 IOR: -WORD 160014 ;ADDRESS OF IEC INPUT/OUTPUT REGISTER 

1183 024214 160016 VSR: -WORD 160016 ,;ADDRESS OF IEC VECTOR SWITCH REGISTER 

1184 024216 000100 TALKER: .WORD 100 SADORESS OF TALKER 

1185 024220 000040 LISTNR: .WORD 40 sADDRESS OF LISTENER 

1186 024222 000270 VECTOR: .WORD 270 sADDRESS OF IEC-VECTOR 

1187 024224 000270 VECA: -WORD 270 sDEFAULT OF IEC11-A VECTOR ADDRESS 

1188 024226 000035 IECAAD: .WORD 35 sIEC11-A BUS ADDRESS DEFAULT VALUE 

1189 001204 - END START 


BT Abdc") 


o 

onl 

“~ 

~~ 

uw 
senrneeneeneieseeneen8ene#nees 


KISOR7= 
. ABS. 


Rat 


011170 


172316 
024230 
000000 


TIc 
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011432 
02 


023 
te) 


011552 
011550 


SEQ 102 


M8 . 
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SYMBOL TABLE 


CSSMON 000000 002 

ERRORS DETECTED: 0O 

VIRTUAL MEMORY USED: 14133 WORDS ( 56 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:02:12 

ZIEBAO, ZIEBAO/ - SP =NEWMAC/ML ,COM, ZIEBAO 


eo 


SEQ 103 


